Estoy haciendo una aplicación de Visual Basic con una base de datos de Microsoft Access.

Estoy haciendo una aplicación en visual basic contra una base de datos en access
que permite hacer operaciones típicas de registros (borrar, actualizar, buscar...)
La base de datos tiene:
- Un campo Numero: autonumérico y clave primaria
- Un campo nombre: de tipo texto
- Un campo descripción: de tipo texto
El problema que tengo es que cuando borro el unico registro introducido
me da un error que me indica: que "el valor BOF o EOF es true, o el actual registro se elimino;
La operación solicitada requiere un registro actual".
No entiendo por que. El código que utilizo para eliminar registros es:
Private Sub CMDBORRAR_Click()
Dim r As Integer '
On Error GoTo Error
r = MsgBox("¿Desea borrar el registro?", vbYesNo, "Atencion")
If r <> vbYes Then Exit Sub
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
Exit Sub
Error:
r = MsgBox(Err.Description, vbOKOnly, "Se ha producido un error")
Adodc1.Recordset.CancelUpdate
End Sub
Luego con otro control grabo la modificación.
¿Cómo puedo solucionar el error o manipular el error?