Error en tiempo de ejecución

[Mari]

Hola aquí les envío mi pregunta, de antemano gracias:
Cuando elimino un registro usando la instrucción sql, lo hace pero luego yo hago un llamado al procedimiento LlenarCampos y es allí cuando ocurre el siguiente error:

Error en tiempo de ejecución. El registro está eliminado.
y se ubica en el primer campo del procedimiento LlenarCampos:
nombre.Text = datos.Fields("nombre")

También tengo cuatro botones de control: que recorren entre el primer registro, el anterior, el siguiente y el último registro.

Les envío el código:

Private Sub btneliminar_Click()
Dim sql As String

MsgBox "Está seguro de eliminar???"
If datos.BOF And datos.EOF Then
MsgBox "base de datos vacía", vbInformation
Else
sql = "DELETE * FROM gentio WHERE cedula like '" & cedula & "'"
conexion.Execute (sql)
blanquear
datos.MoveFirst
MsgBox "El registro fue eliminado", 64
LlenarCampos
End If
End Sub


Sub LlenarCampos()
If datos.BOF And datos.EOF Then
MsgBox "base de datos vacía", vbInformation
Else
nombre.Text = datos.Fields("nombre")
cedula.Text = datos.Fields("cedula")
ciudad.Text = datos.Fields("ciudad")
End If
End Sub

Les envío el código del botón de control siguiente:

Private Sub btnsiguiente_Click()
If datos.BOF And datos.EOF Then
MsgBox "la base de datos está vacía", vbInformation
Else
datos.MoveNext
If datos.EOF Then
datos.MoveLast
Beep
MsgBox "Último Registro", vbCritical, "Último Registro"
Else
LlenarCampos
End If
End If
End Sub