problema con en control Data

[fugasfugas2]

buenas tengo un problema. tengo un control data invisible por que el contro es antiestetico xD. bueno puse los botones con commandbutton y cuando le doy 1 mas del ultimo registro y 1 menos que el primer registro me salen registros en blanco.

como puedo omitir ese tipo puse en codigo:

If Data1.Recordset.BOF Then
MsgBox "YA ESTAS EN EL PRIMER REGISTRO", , "Error"
Data1.Recordset.MoveNext
Else
Data1.Recordset.MovePrevious
End If

pero no me corrige el error. ayuda plis

tambien si podeis decirme como hago para que me salga el numero de linea donde estoy y el total para poner un ejemplo si estoy en el registro numero 6 de un total de 16 que en un label ponga 6/16