Private Sub Command1_Click()
AdoDatos.Recordset.AddNew
End Sub
Private Sub Command2_Click()
AdoDatos.Recordset.Update
End Sub
Private Sub Command3_Click()
AdoDatos.Recordset.Delete
End Sub
Private Sub Command4_Click()
AdoDatos.Recordset.MoveFirst
End Sub
Private Sub Command5_Click()
AdoDatos.Recordset.MoveLast
End Sub
Private Sub Command6_Click()
AdoDatos.Recordset.MoveNext
End Sub