Visual Basic - Dato Curioso

tengo hechos los botones ke me permiten moverme entre registros "siguiente" y "anterior"
y estos son mis codigos:

Private Sub Cmdsiguiente_Click()
If Data1.Recordset.EOF Then
MsgBox ("No se han encontrado mas registros.")
Else
Data1.Recordset.MoveNext
End If
End Sub

Private Sub CmdAnterior_Click()
If Data1.Recordset.BOF Then
MsgBox ("No se han encontrado mas registros.")
Else
Data1.Recordset.MovePrevious
End If
End Sub

y lo raro es ke cuando agrego a mis clientes... al recorrer los registros... me guarda unos en blanco al principio y al final, y kiero evitar eso

gracias

Q tal colega mira solo tienes q modificar las propiedades del control
BOFAccion = 1
EOFAccion = 1
listo