[VB6] Ricerca nel database

[yyzyyz]

ciao nn ho modo di provare il sorgente ma dovrebbe essere una cosa del genere.

Private Sub Command1_Click() 
Dim ricerca As String 
ricerca = inputbox(nome?)
sql = "SELECT * FROM Clienti where nome='" & ricerca & "'" 
Data1.RecordSource = sql
Data1.Refresh 
End Sub