MaxRecords Property Example

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

Sub MaxRecordsX()

	Dim rstTemp As ADODB.Recordset
	Dim strCnn As String

	' Open recordset containing the 10 most expensive
	' titles in the Titles table.
	strCnn = "driver={SQL Server};server=srv;" & _
		"uid=sa;pwd=;database=pubs"
	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