Ciao a tutti. Dovrei fare una ricerca in un db e una volta trovato il record, visualizzarlo.
Per il momento ho implementato il codice che mi visualizza solo un campo, ma non mi funziona.
Che ne dite?

-----CODE---------------
Private Sub cmdCerca_Click()
If Text1.Text <> "" Then
Text1.Text & "%" & "'" & ";"
q = "Select * from Clienti where CognomeNome like " & " '" & Text1.Text & "*'"
Rs.Open q, Cn, adOpenStatic, adLockOptimistic, adCmdText
frmRisultato.txtNome.Text = Rs.Fields("CognomeNome").Value
End If
End Sub
------------------------

Il db l'ho inizializzato così:

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

End Sub
------------------------


Grazie.