البحث و التعديل و الحفظ في قاعدة البيانات

أكتب الكود التالي للتعديل..

Private Sub CmdEdit_Click()
    Data1.Recordset.Edit
End  Sub

والكود التالي ليتم إلغاء أمر التعديل..

Private Sub CmdCancel_Click()
    Data1.Recordset.CancelUpdate
End Sub

والكود التالي التالي لحفظ التغييرات بعد التعديل..

Private Sub cmdSave_Click()
   Data1.Recordset.Update
End Sub

السلام عليكم

للاضافة استعمل

data1.recordset.addnew

و للتعديل

data1.refresh