Prova anche in questo modo:
aggiungi nei Riferiemnti: Microsoft Dao 3.x object library


sempre nella sez. general del form principale
creati una function personalizzata.
private function pippo()

dim db as Database
dim rs as Recordset


if text1.text <> "" then
Text1.Text = Text1.Text & "%" & "'" & ";"

set db = opendatabase("xxx.mdb")
set rs = db.openrecordset("select * ......")

do while not rs.eof
frmRisultato.txtNome.Text = Rs("CognomeNome")
rs.movenext
loop
endif

rs.close
db.close

end function

Bye