Private Sub Command1_Click()
'Ricerca un nome all'interno dell'agenda.
Dim NomeDaCercare As String
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda")



Data1.RecordSource = "select * from rubrica Where nome = 'NomeDaCercare' "
Data1.Refresh
End Sub

Il risultato è la dbgrid vuota senza nessun record