Visual Basic 6 - Come posso risolvere il codice d'errore 3077 di runtime syntact error (missing operator) in expression

Salve a tutti, è da tanto tempo che non scrivo. #IORESTOACASA, aiutiamoci l'un con l'altro.

Detto questo vengo subito al punto.

Di seguito il codice con sottolineato la parte dove premendo debug viene evidenziata.

Private Sub DBCombo1_Click(Area As Integer)
If DBCombo1.Text = "" Then Exit Sub
Select Case Area
Case 0
Case 1
  SendKeys "%{Down}"
Case 2
  Label15.Caption = DBCombo1.BoundText
  [/u][u]Data1.Recordset.FindFirst ("codice=" & Label15.Caption & "")[u][/u]
End Select
End Sub

Qualcuno di voi può aiutarmi? Grazie 1000 a tutti.