Hola Fiorella estas trabajando con programacion Ado? si es asi abres tu tabla de esta manera
en el load:
Código PHP:
Private Sub Form_Load()
rs.CursorType = adOpenDynamic
rs.Open "tabla", CN, adOpenKeyset, adLockOptimistic
End Sub
luego un escribe un sub que llene las cajas de texto como ejemplo
Código PHP:
Sub llena()
Txt1.Text = "" & rs(0)
Txt2.Text = "" & rs(1)
Txt3.Text = "" & rs(2)
Txt4.Text = "" & rs(3)
Txt5.Text = "" & rs(4)
End Sub
y por ultimo agregas 4 botones y le pones el mismo nombre en este caso yo puse de nombre cdmrecorre y creas un array con esos botones y el codigo el siguiente.
Código PHP:
Private Sub cdmrecorre_Click(Index As Integer)
If rs.RecordCount > 0 Then
Select Case Index
Case 0
rs.MoveFirst
Case 1
rs.MovePrevious
If rs.BOF Then
rs.MoveFirst
End If
Case 2
rs.MoveNext
If rs.EOF Then
rs.MoveLast
End If
Case 3
rs.MoveLast
End Select
Call llena
End If
End Sub
de esta manera no repites el codigo par llenar las cajas de texto, espero te ayude en algo el codigo y si tienes algun problema escribe a mi correo que esta en mi perfil.
Saludos.
Gino'FL