Visual Basic - Error al Usar Ado.recordset.delete

Hola gracias por leer mi problema

lo que pasa es que tengo una base de datos de access conectada mediante el control ado entonces cuando voy a eliminar un registro me sale el siguiente error:

"Errror '-2147217887(80040e21)' en timepo de ejecucion:
la peracion en varios pasos genero errores. compruebe los valores del estado"

Si alguien sabe como solucionar este problema le agradeceria muchisimo. este es el codigo que tengo:

On Error Resume Next
res = MsgBox("Estas seguro?", vbYesNo + vbInformation)
If res = vbYes Then
adoingresos.Recordset.Delete
res1 = MsgBox("Se ha eliminado con exito")
adoingresos.Recordset.MoveFirst
End If

o tambien lo intente con este:

If (adoingresos.Recordset.EOF Or adoingresos.Recordset.BOF) Then
adoingresos.Caption = "Ningún registro activo"
Else

adoingresos.Recordset.Delete

adoingresos.Recordset.MoveFirst
End If

Prueba a poner lo siguiente:

ado.recordset.delete adAffectCurrent

Hey hermano nada, le puse lo que me dijiste y nada me saca el mismo error, si me puedes ayudar se lo agradeceria mucho.

Hola luis gracias por ayudarme, intente con lo que me dijiste pero me sigue saliedo el mismo:

"Errror '-2147217887(80040e21)' en timepo de ejecucion:
la peracion en varios pasos genero errores. compruebe los valores del estado"

si me puedes ayudar te lo agradeceria muchisimo..

hola amigo si tu no sabes usar sentencia sql estara feo pero prueba este en ver de usar adoingresos.Recordset.Delete usa delete de sql y vera que te funciona ok