Visual Basic - Problema al borrar

HOLA PROGRAMADORES,,,, MIREN MI PROBLEMA ES EL SIGUIENTE

TENGO CONECTADO UN DATAGRID A UNA BASE DE DATOS EN ACCES TRABAJO CON VB6 UTILIZANDO ADODB PARA LAS "KONEXIONES" ADODB.RECORDSET PARA LAS TABLAS

ENTONCE CUANDO TRATO DE BORRAR UN REGISTRO ME APARECE EL SIGUIENTE MENSAJE
1ero en un msgbox me aparece lo siguiente

MICROSOFT DATA GRID CONTROL
No se puede encontrar la fila para la actualizacion:
algunos valores han cambiado desde la ultima vez que se leyo.

Despues en el mensajero de error estandar de visual basic me aparece esto

ERROR -2147217864 (80040e38)' en tiempo de ejecucion
No se puede encontrar la fila para su actualizacion algunos valores han cambiado desde la ultima vez que se leyo.

le doy en depurar y me marca el codigo de delete que solo le tengo de esta manera

With rsDFOR
If .RecordCount = 0 Then
MsgBox "No hay registros en la tabla", vbCritical, App.Title
Exit Sub
Else
.Delete
.MoveNext
If .EOF Then
exit sub
end if
end if

POR FAVOR AUXILIO

Proba con esto

With rsDFOR
If .RecordCount = 0 Then
MsgBox "No hay registros en la tabla", vbCritical, App.Title
Exit Sub
Else
.Delete
.REFRESH
.MoveFIRST
If .EOF Then
exit sub
end if
end if