Visual Basic - Problemas con bases de datos

Hola buenas tardes a todos, estoy manejando una base de datos DAO en visual basic y tengo un problema ke me esta haciendo komerme mucho la kabeza, para visualizar los registros en pantalla uso un listview y mi problema es ke a la hora de borrar uso el siguiente kodigo:

For i = lstDatos.ListItems.Count To 1 Step -1
If lstDatos.ListItems.Item(i).Selected = True Then
If rsAgenda.NoMatch Then
MsgBox "Fallo"
Else
rsAgenda.Delete
End If
Exit For
End If
Next i

Pero lo ke konsigo es ke me borre solo el registro primero, trasteando lo uniko ke he logrado es ke me borre solo el ultimo registro y no konsigo por mas vueltas ke le doy ke me borre el registro ke yo seleciono en konkreto en el listview si alguien pudiera ayudarme, se lo agradeceria, muchas gracias.

Creo que el problema es que a tu teclado la falta la Q (es la primera en la fila superior, por la izquierda, claro)

vos tenes esto

For i = lstDatos.ListItems.Count To 1 Step -1
If lstDatos.ListItems.Item(i).Selected = True Then
If rsAgenda.NoMatch Then
MsgBox "Fallo"
Else
rsAgenda.Delete
End If
Exit For
End If
Next i
***********************************************************
proba con esto a ver si funciona

For i = lstDatos.ListItems.Count To 1 Step -1
If lstDatos.ListItems.Item(i).Selected = True Then
rsAgenda.movefirst
Do while not rsAgenda.EOF
if reAgenda!(el campo tuyo) = lstDatos.ListItems.Item(i).text then
reAgenda.Delete
Exit Do
endif
reAgenda.movenext
Loop
Exit For
End If
Next i

suerte