recordset.delete (Urgent) !!!

hi all :

i have the following for statement , that delete's each item that is checked in the list1 :

for X = List2.ListCount - 1 to 0 Step -1
if list2.Selected(X) then List2.RemoveItem X
Next X

what i want is to add a code to delete each recordset that match the deleted item (checked item in the list)

so i wrote the following :

If List2.ListCount <> 0 Then
For xx = List2.ListCount - 1 To 0 Step -1
If List2.Selected(xx) Then
List2.RemoveItem xx
stuupcomrs.Delete

If stuupcomrs.EOF Then
stuupcomrs.MoveFirst
Else
stuupcomrs.MoveNext
End If
End If

but something goes wrong in the recordsets ..

please what is the suetable code for this Op.

many thanxxx for all...