errore di sintassi

[BOYROMA1]

ho una parte di codice che in un programma funziona e in un altro no
mi da errore di sintassi e non capisco perchè

dim catalogo as string

Private Sub CMDRICERCA_Click()

Dim DaCercare As String
Dim mario As String

If CMDRICERCA.Caption = "RICERCA" Then
   DaCercare = InputBox("Stringa da cercare:", "Trova record")
   catalogo = DaCercare
   mario = "COGN DENOM SOC 1 = """ & DaCercare & """"
   Data1.Recordset.FindFirst mario     'mi da errore di sintassi qui
   CMDRICERCA.Caption = "RICERCA SUCCESSIVA"

  If Data1.Recordset.NoMatch Then
     MsgBox "Record non trovato", vbExclamation, "Errore di ricerca"
  End If
Else
  Criterio = "COGN DENOM SOC 1 = """ & catalogo & """"
  Data1.Recordset.FindNext mario
      If Data1.Recordset.NoMatch Then
         MsgBox "Records esauriti", vbInformation, "Fine ricerca"
         CMDRICERCA.Caption = "RICERCA"
      End If
End If
End Sub

sapreste aiutarmi?
in un programma di rubrica fnziona

:master: :master: