guys why is it that im having an error saying "INDEX OUT OF BOUNDS" here in this code? i just followed the same logic i learned here in this forums. here is the code..

If ListView2.ListItems.Count = 0 Then
MsgBox "Nothing to add.", vbCritical + vbApplicationModal, "Message"
Exit Sub
Else
For nI = 1 To ListView2.ListItems.Count
If ListView2.ListItems(nI).Checked = True Then

Set rs = New ADODB.Recordset
rs.Open "Select * from sendtbl where empid like '%" &ListView2.ListItems(nI).SubItems(4) & "%'", cn, 3, 2
rs.Delete
rs.Update
rs.Close
Set rs = Nothing

Call load
End If

Next nI

End If

can someone help me please??