Problemas con boton

[serbc24]

Hola a todos tengo el siguiente codigo

Private Sub cmdPrevious_Click()
rt.MovePrevious
If rt.BOF Then
rt.MoveFirst
cmdPrevious.Enabled = False
cmdNext.Enabled = True
Exit Sub
End If
cmdPrevious.Enabled = True
End Sub

Y a la hora de ejecutar me da el siguiente error:

Error '3021' en tiempo de ejecucion
El valor de BOF o EOF es TRUE o el actual registro se eliminó; la
operación solicitada requiere un registro actual

Alguna solucion


Gracias