Private Sub CmdMov_Click(Index As Integer)
    Select Case Index
        Case 0
            RSTIdentifi.MoveFirst
            MsgBox "Principio de la Lista", vbCritical, "Reparaciones"
        Case 1
            RSTIdentifi.MovePrevious
            If RSTIdentifi.BOF Then
                RSTIdentifi.MoveFirst
            End If
        Case 2
            RSTIdentifi.MoveNext
            If RSTIdentifi.EOF Then
                RSTIdentifi.MoveLast
            End If
        Case 3
            RSTIdentifi.MoveLast
            MsgBox "Final de la Lista", vbCritical, "Reparaciones"
    End Select
End Sub