ok grazie
volevo dire che ho risolto quello è un codice che mi permette di ricercare dei nominati all'interno di un db.....c'enerabo tanti in rete ma nessuno faceva al mio caso questo si!!

codice:
'Ricerca un nome all'interno dell'agenda.
    Dim i As Integer
    Dim NomeDaCercare As String
    'chiede l'inserimento della ditta
    NomeDaCercare = InputBox$("Immettere la ditta da ricercare:", "Ricerca nell'agenda")
    dbClienti.Recordset.MoveFirst
'inizia la ricerca
For i = 1 To dbClienti.Recordset.RecordCount
    dbClienti.Recordset.MoveNext
    If txtDitta.Text = NomeDaCercare Then
        MsgBox "Ditta Trovata", vbInformation, Me.Caption
        Exit For
    End If
    If i = dbClienti.Recordset.RecordCount Then
        dbClienti.Recordset.MoveFirst
        MsgBox "Ditta non trovata", vbExclamation, Me.Caption
    End If
Next i
Grazie Ancora