MaxRecords Property Example (VB)

This example uses the MaxRecords property to open a Recordset containing the 10 most expensive titles in the Titles table.

'BeginMaxRecordsVB
Public Sub MaxRecordsX()

   Dim rstTemp As ADODB.Recordset
   Dim strCnn As String

   ' Open recordset containing the 10 most expensive
   ' titles in the Titles table.
   strCnn = "Provider=sqloledb;" & _
      "Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
   Set rstTemp = New ADODB.Recordset
   rstTemp.MaxRecords = 10
   rstTemp.Open "SELECT Title, Price FROM Titles " & _
      "ORDER BY Price DESC", strCnn, , , adCmdText

   ' Display the contents of the recordset.
   Debug.Print "Top Ten Titles by Price:"

   Do While Not rstTemp.EOF
      Debug.Print "  " & rstTemp!title & " - " & rstTemp!Price
      rstTemp.MoveNext
   Loop
   rstTemp.Close

End Sub
'EndMaxRecordsVB

MaxRecords Property Example (VB)

See Also