[VB6] Problema con un If dopo stringa SQL

[Dardino]

Come dovrebbe essere:

If Data1.Recordset.RecordCount > 0 Then
    Data1.Recordset.MoveFirst
    If lblCerca.Caption = Data1.Recordset("Barre") Then
        MsgBox "OK"
    Else
        MsgBox "Assente"
    End If
End Sub