[كاظم هاشم البهادلي]

Private Sub but1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew

End Sub

Private Sub but2_Click()
On Error Resume Next
Adodc1.Recordset.Update
MsgBox "تم حفظ البيانات بنجاح", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "حفظ "
Adodc1.Refresh
End Sub
كود الاضافة وكود الحفظ