ciao ragazzi nn capisco perchè questo codice nn mi funziona, eppure in un altro progetto va bnesissimo...dove sbaglio??!!!

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