io ti consiglio di usare ADO; quindi inserisci nei riferimenti
Microsoft ActiveX Object 2.7 Library

codice:
Dim Cn As New ADODB.Connection

Private Sub Form_Load() 
   Cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data" & _
           "Source=GetsMag.mdb;" 
   Cn.CursorLocation = adUseClient 
End Sub 

Private Sub cmdCerca_Click() 

  If Text1.Text <> "" Then 
     q = "Select * from Clienti where CognomeNome " & _
         "like '*" & Text1.Text & "*'" 
     
     Dim Rs As New ADODB.Recordset
     Rs.Open q, Cn, adOpenStatic, adLockOptimistic, adCmdText 
     frmRisultato.txtNome.Text = Rs("CognomeNome")
   End If 

End Sub