Private Sub add_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub delete_Click()
Adodc1.Recordset.delete
End Sub
Private Sub last_Click()
Adodc1.Recordset.MoveLast
End Sub
Private Sub modify_Click()
Adodc1.Recordset.EditMode
End Sub
Private Sub next_Click()
Adodc1.Recordset.MoveNext
End Sub
Private Sub previous_Click()
Adodc1.Recordset.MovePrevious
End Sub
Private Sub save_Click()
Adodc1.Recordset.save
End Sub
No comments:
Post a Comment