Hola
ciber_lep...
Me imagino que tu problema es al iniciar el recordset, si es así, yo lo hago de esta manera...
Private Sub Form_Load()
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase(App.Path & "/NombreDeLaBaseDeDatos.mdb")
Set RS = DB.OpenRecordset("SELECT * FROM TABLA WHERE TalCosa=OtraCosa")
End Sub
luego de eso, el RS tiene todos los datos que se le pidieron en la consulta, utilizas los datos y luego los cierras...
y listo.
P.D.: Si en el proyecto no has agragado un objeto
Data te dará un error, lo que yo hago es agrego un objeto
Data y luego lo quito.
See you!!! 
Piyey.
