forse ti sei scordato l'ELSE QUI
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
        ELSE
            HO TROVATO IL CODICE"
        End If
    End If
Ciao [/B][/QUOTE]