ارج المساعده من اهل الخبره

انا توصلت الى عمل هذا المثال ولكننى اجد بعض الاخطاء

VB1.rar

السلام عليكم :

اخي الكريم خطأك في كود الزر save

اليك الكود الصحيح

Private Sub Command2_Click()
Command2.Enabled = False
Command1.Enabled = True


If rs1.State = 0 Then rs1.Open

'هنا الخطأ
'rs1("name") = Text1.Text
'rs1("phone") = Text2.Text
'rs1("email") = Text3.Text
'rs1("notes") = Text4.Text
'التعديل
rs1("الاسم") = text1.text
rs1("الهاتف") = text2.text
rs1("الايميل") = text3.text
rs1("ملاحظات") = text4.text

rs1.Update

وهذا البرنامج بعد التعديل

VB1.rar