scusa, errore mio:

codice:
For i = lstCategorie.ListCount - 1
    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
Next i