Hola. Mira yo lo uso asi y me funciona, te lo paso y luego si consideras, modificalo a tu necesidad
Código:
Private Sub Form_Load()
Dim rs As ADODB.Recordset, Sql as string, Base as string
Set rs = New ADODB.Recordset
Sql = "select * from TuTabla where TusCondiciones"
Base = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Agenda.mdb" & ";Persist Security Info=False"
With rs
.ActiveConnection = Base
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open Sql
End With
'Luego para utilizar los datos obtenidos lo haces por ejemplo con :
msgbox rs!NombreCampoDeTAbla
End Sub
Espero te sirva