[VB6] Problema con un If dopo stringa SQL

[Pestilence]

Dardino ho scoperto che sono un imbecille!!!!

If Data1.Recordset.RecordCount > 0 Then
    Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF
Loop
    If lblCerca.Caption = Barre Then
        MsgBox "OK"
    Else
        MsgBox "Assente"
    End If
End If

quell'If iniziale ( Data1.Recordset.RecordCount > 0 Then )chiude dopo il lblCerca e ovviamente non legge la istruzione successiva... penso sempre troppo come un umano e non come una macchina
Amen l'importante è che abbia risolto

TNX lo stesso