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:

[DeBe99]

dovè che ti dà errore?

[BOYROMA1]

Data1.Recordset.FindFirst mario 'mi da errore di sintassi qui

[DeBe99]

non avevo letto il commento di fianco.

mario = "COGN DENOM SOC 1 = """ & DaCercare & """"

COGN DENOM SOC 1 è il nome del campo !?! Non và tanto bene, quando si danno i nomi ai campi sarebbe meglio non inserire spazi (usa gli _ )
Comunque prova a racchidere il nome del campo tra parantesi quadre.

...
mario = "[COGN DENOM SOC 1] = """ & DaCercare & """"
...

[BOYROMA1]

grazie tante