Visual Basic - urgente ¡¡¡necesito ayda¡¡

tras realizar una consulta con SQL y no encontrarse el registro, se me queda la base de datosa sin registros, lo cual al querer crear un nuevo registro tras esa consulta..o darle la orden Form1.Data1.Recordset.MoveLast me da un error "no current recort".
necesito por favor ayuda. ?que puedo hacer para que no se me produzca ese error??

Hola, cuando estoy buscando en una tabla y paso al siguiente elemento, siempre controlo si es el final para que no me de error. Te pongo un trozo de un programa por si te sirve de ayuda. Un saludo.

registro.MoveFirst
puntero = registro!Num_Archivo
Do Until registro.EOF Or fin
base.Execute "INSERT INTO [Histórico Remitidas ]" & _
"SELECT * FROM [Tabla]" & _
"Where Num_archivo = " & puntero
base.Execute "DELETE FROM [Tabla]" & _
"Where Num_archivo = " & puntero
registro.MoveNext
If registro.EOF Then
registro.MoveLast
resp = MsgBox("Operación Terminada", , "Aviso")
fin = True
Else
puntero = registro!Num_Archivo
End If
Loop

gracias