Visual Basic - Base de datos

Cuando, por ejemplo se borran todos los registros de la base, cuando se borra el ultimo y se presiona siguiente, aparece un cartel que dice no hay registros activos.
Como se puede interceptar eso?

puede escribir algo como lo soguiente:

if data1.recordset.eof then
msgbox "No hay más registros"
exit sub

tambien con un manejador de errores

Sub etc..
on error goto arreglalo

.............
,,,,,,,,,,,,,
,,,,,,,,,,,,,
,,,,,,,,,,,,,
arreglalo:
if err<>0 then
msgbox "..."
exit sub
end if

espero sea lo preguntado !1

lo podes hacer por medio de colocar en el datacontrol en el procedimiento reposition o validate no me acuerdo muy bien un "on error goto trata1"
luego el comando "exit sub"
y por fin
"trata1:" "resume next"
siempre me funciono, sino resulta consumete por que tengo dos medotos más