Sub CreateRst_WithSQL()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strConn As String
strConn = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CurrentProject.Path & _
"\mydb.mdb"
Set conn = New ADODB.Connection
conn.Open strConn
Set rst = conn.Execute("Select * from Employees")
Debug.Print rst("LastName") & ", " & rst("FirstName")
rst.Close
Set rst = Nothing
conn.Close
Set conn = Nothing
End Sub