FINALIZANDO FORMULARIO

 Para finalizar realice la siguiente modificación al formulario que hemos trabajado las clases anteriores y agregue 4 botones nuevos. EN su propiedad Nombre les cambia el nombre por PRIMERO, SIGUIENTE, ANTERIOR y ULTIMO

Ponga la propiedad visible del Adodc en False y copie el siguiente código en la ventana de código

Private Sub primero_Click()

Adodc1.Recordset.MoveFirst

End Sub

Private Sub siguiente_Click()

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

   Adodc1.Recordset.MoveLast

End If

End Sub

Private Sub ultimo_Click()

Adodc1.Recordset.MoveLast

End Sub

Private Sub anterior_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then

   Adodc1.Recordset.MoveFirst

End If

End Sub