Attribute VB_Name = "basADOSQLRecordset"
Option Compare Database
Option Explicit

Sub ADOSQLRecordset()

'Declare your variables
Dim cnConn As ADODB.Connection
Dim rsNames As ADODB.Recordset
Dim strSQL As String

'Set your variables
Set cnConn = CurrentProject.Connection
Set rsNames = New ADODB.Recordset
strSQL = "SELECT * FROM tblNames"

'Open the table
rsNames.Open strSQL, cnConn

'loop through and print records
rsNames.MoveFirst
Do Until rsNames.EOF
    Debug.Print rsNames!strFirstName & " " & rsNames!strLastName
    rsNames.MoveNext
Loop

'Clean up
rsNames.Close
cnConn.Close
Set rsNames = Nothing
Set cnConn = Nothing

End Sub