Sub Text1_Keypress(KeyAscii As Integer)
    If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 127 Or KeyAscii = 8 Then
        ' El 48 es 0 y el 57 es 9, 127 es SUPR y 8 es Backspace
        Exit Sub 
    Else
        MsgBox "Solo números para registrar el valor a pagar sin puntos, " & _
               "ni comas, ni cualquier caracter especial!!" 
    End If
End Sub

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub cmdprimero_Click()
    rs.MoveFirst
End Sub

Private Sub cmdUltimo_Click()
    rs.MoveLast
End Sub

Private Sub cmdanterior_Click()
    rs.MovePrevious
    If rs.BOF Then
        rs.MoveFirst
        MsgBox "estamos en el primer registro"
    End If
End Sub
Private Sub cmdsiguente_Click()
    rs.MoveNext
    If rs.EOF Then
        rs.MoveLast
        MsgBox "estamos en el ultimo registro"
    End If

End Sub




Private Sub fechanac_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Private Sub Command1_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
    modoeditar False
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = dax.mdb; "
    rs.ActiveConnection = cn
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Open "select * from CAMBIO_UBICACION"
    Set Text1.DataSource = rs
    Text1.DataField = "ID_ANIMAL"
    Set Text3.DataSource = rs
    Text3.DataField = "POTRERO_ORIGEN"
    
    Set DTPicker1.DataSource = rs
    DTPicker1.DataField = "FECHA"
    
    Set Text4.DataSource = rs
    Text4.DataField = "POTRERO_DESTINO"
    Set Text5.DataSource = rs
    Text5.DataField = "COMENTARIO"
End Sub

Private Sub modoeditar(ByVal ok As Boolean)
    Text1.Locked = Not ok
    Text3.Locked = Not ok
    Text4.Locked = Not ok
    Text5.Locked = Not ok
    cmdnuevo.Enabled = Not ok
    cmdEditar.Enabled = Not ok
    cmdeliminar.Enabled = Not ok
    cmdGuardar.Enabled = ok
    If ok Then Text1.SetFocus
End Sub

Private Sub cmdnuevo_Click()

    rs.AddNew
    modoeditar True

End Sub

Private Sub cmdGuardar_Click()

    rs.Update
    modoeditar False

End Sub

Private Sub cmdEditar_Click()

    modoeditar True

End Sub

Private Sub cmdeliminar_Click()

    rs.Delete
    rs.MoveNext
    If rs.EOF Then
        rs.MoveLast
    End If
End Sub