Vabbe Non ho capino cosa cambia xrò lo riscrivo.
qualcuno sa una formula x la ricerca in un database?

codice:
Private Sub Command7_Click() 
'Ricerca un nome all'interno dell database. 
Dim NomeDaCercare As String 
NomeDaCercare = InputBox$("Immettere il nome da ricercare:", "Ricerca nell'agenda") 
If NomeDaCercare <> "" Then 
'Esegue la ricerca solo se è stato immesso un nome. 
Data1.Recordset.Index = "Nome" 
Data1.Recordset.Seek "=", NomeDaCercare 
If Data1.Recordset.NoMatch Then 
Data1.Recordset.MoveFirst 
Data1.Refresh 
'Il nome cercato non è stato trovato. 
MsgBox "Nome non trovato.", vbInformation, Me.Caption 
End If 
End If 
End Sub