Originariamente inviato da anatroccolo
codice:
Rs.State = adStateOpen

Cn.State = adStateOpen
prova a testarli in questo modo.
Ho provato a testarli in questo modo, e funziona :gren:

codice:
If Rs.State = adStateOpen Then
        lblState.Caption = "APERTO"
    Else
        lblState.Caption = "CHIUSO"
 End If