[VB6]Problema ListBox - errore 381

[Stefanik]

Ciao.
Da una textbox inserisco delle righe in una listbox e contemporaneamente le inserisco in un db.
Dalla listbox posso anche eliminare le righe, quindi anche nel db.

For i = 0 To 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
    End If
Next i

Il problema è che se ho più record nella listbox e voglio cancellare
un record che non sia l'ultimo della lista, mi restituisce l'errore runtime 381 "indice della matrice di proprietà non valido".
La ListBox ha lo Style=1.
Idee?