Originariamente inviato da cik
trasforma il for in un while
codice:
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