Attribute VB_Name = "basADOconnection"
Option Compare Database
Option Explicit

Sub ADOconn()

'Declare your connection and recordset
Dim cnConn As ADODB.Connection
Dim rsTable As ADODB.Recordset

'Set your connection to the current project
'Set your table to a new ADO recordset
Set cnConn = CurrentProject.Connection
Set rsTable = New ADODB.Recordset

'Open your table - in this case tblNames
rsTable.Open "tblNames", cnConn, adOpenForwardOnly

'Move to the first record and loop through them to the end
'displaying each one in the Immediate window
rsTable.MoveFirst
Do Until rsTable.EOF
    Debug.Print rsTable!strFirstName & " " & rsTable!strLastName
rsTable.MoveNext
Loop

'Clean up your variables
rsTable.Close
cnConn.Close
Set rsTable = Nothing
Set cnConn = Nothing

End Sub