ADODB کارها کمک کنند !!!!

[M8SPY_OK]

سلام

یک سوالی در مورد حذف یک رکورد از ADODB داشتم .

من تمامی اطلاعات مربوط به ADODB رو توسط کد زیر به یک ListView منتقل کردم .
ListView = LIST


For I = 1 To R_set.RecordCount
Set itmx = LIST.ListItems.Add(, , R_set!code)
itmx.SubItems(1) = R_set!Name
itmx.SubItems(2) = R_set!tedad
itmx.SubItems(3) = R_set!mozo
itmx.SubItems(4) = R_set!mahsol
itmx.SubItems(5) = R_set!tozihat

R_set.MoveNext

Next I


حالا می خوام موقعی که مثلاً روی ایندکس شماره 4 از کنترل لیست ویو کلیک کردم و دکمه delete رو زدم دقیقاً همون رکورد 4 از شی ADODB حذف بشه .

از کد زیر استفاده کردم ولیجواب نمیده و یک رکورد دیگه رو حذف می کنه .


R_set.Move LIST.SelectedItem.Index - 1
R_set.Delete
R_set.Requery



لطفاً کمک کنید ....