[VB6]Problema ListBox - errore 381

[Stefanik]

Originariamente inviato da cik
trasforma il for in un while

i = lstCategorie.ListCount - 1
while i>=0
    If lstCategorie.Selected(i) = True Then
        qRimozione = "SELECT * FROM ImpoCategorie WHERE IDCategoria =" & lstCategorie.ItemData(lstCategorie.ListIndex)
        RsRimozione.Open qRimozione, Cn, adOpenDynamic, adLockOptimistic
        lstCategorie.RemoveItem (lstCategorie.ListIndex)
        RsRimozione.Delete
        RsRimozione.Update
        RsRimozione.Close
        Exit For
    End If
    i=i-1
Wend

e se ti dà ancora errore dimmi il valore della i

Funziona

[Stefanik]

Ragazzi come al solito vi devo ringraziare per l'aiuto.