Forse devi inserire il riferimento Activex Data Object 2.x

Io cmq di solito faccio metto un modulo dove inserisco:

codice:
Public connConnection As New ADODB.Connection
Public rsRecordset As New ADODB.Recordset
Public Sub Connessione()
connConnection.CursorLocation = adUseClient
connConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tuoDatabase.mdb"
rsRecordset.CursorType = adOpenStatic
rsRecordset.CursorLocation = adUseClient
rsRecordset.LockType = adLockPessimistic
End Sub
Poi per aprire il recordset fai:
codice:
'qui controlli che non sia già aperto
if rsRecordset.state=1 then
    rsrecordset.close
endif
'Qui gli associ la select come sorgente dati
rsRecordset.Source="SELECT * FROM tuaTabella WHERE tuoCampo='" & tuaVariabile & "'"
'qui apri il record
If rsRecordset.State = 0 Then
    rsRecordset.ActiveConnection = connConnection
    rsRecordset.Open
End If
Ecco fatto ti sei creato un recordset dove ci son solo i record che hanno come "tuoCampo" la "tuaVariabile"!

Ho evidenziato in rosso i campi che devi personalizzare tu!

ps: Anche qui devi inserire il famoso riferimento se no non ti riconosce il tipo di variabile (Connessione e Record).