Hi everybody: When I introduce data in this program I always get the 3077 error, (syntaxix error). Could you help me finding out what´s wrong?Thank´s any way.

Private Sub Command2_Click()
Form5.Show 1
Dim Aqui As Variant
Aqui = Data1.Recordset.Bookmark
Data1.Recordset.FindFirst " [NHISTO] = " & answer
If Data1.Recordset.NoMatch Then ' ¿Se ha encontrado?
Data1.Recordset.Bookmark = Aqui ' Si no se ha encontrado, vuelve
MsgBox ("No se encontro la historia " & answer)
' al que era el registro actual.
' al que era el registro actual.
Else
' Sí se ha encontrado.
End If
Command1.Enabled = True
Command3.Enabled = True
Command5.Enabled = False
End Sub