problema con en control Data

[lokoman]

Hola!!
Ya resolví el problema, intenta de este modo:

Private Sub Command1_Click()
'ESTE ES EL CODIGO PARA IR HACIA ATRAS
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
MsgBox "YA ESTAS EN EL PRIMER REGISTRO", , "Error"
Data1.Recordset.MoveNext
End If
End Sub

Private Sub Command2_Click()
'ESTE ES EL CODIGO PARA IR HACIA DELANTE
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
MsgBox "YA ESTAS EN EL ULTIMO REGISTRO", , "Error"
Data1.Recordset.MovePrevious
End If
End Sub


Private Sub Text1_Change()
'PARA OBTENER EL TOTAL DE REGISTROS 6/16
Label1.Caption = "total de registros: " & Data1.Recordset.AbsolutePosition + 1 & "/" & Data1.Recordset.RecordCount
End Sub

Nos cuentas!!