شباب ما الخظأ البرمجى فى كود الحفظ

بسم الله الرحمن الرحيم

شباب ارجو المساعده فى تعديل الخطئ فى كود الحفظ

عند الضغط يقوم بئظهار رساله خطأ التى بالصوره

    Private Sub butsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butsave.Click
        ' كود الحفظ والتعديل



        Try


            Application.DoEvents()


            If txtid.Text = "" Then

                'كود اضافة سجل جديد
                Dim Add_NewRow As DataRow = DataSet1.Tables("cus").NewRow()


                '   If TextBox1.Text = "" Then Add_NewRow("name") = DBNull.Value Else Add_NewRow("name") = TextBox1.Text.Trim

                If txtid.Text = "" Then Add_NewRow("cusID") = DBNull.Value Else Add_NewRow("cusID") = txtid.Text.Trim
                If txtname.Text = "" Then Add_NewRow("cusName") = DBNull.Value Else Add_NewRow("cusName") = txtname.Text.Trim
                If txtaddr.Text = "" Then Add_NewRow("cusAddress") = DBNull.Value Else Add_NewRow("cusAddress") = txtaddr.Text.Trim
                If txtphone.Text = "" Then Add_NewRow("cusPhone") = DBNull.Value Else Add_NewRow("cusPhone") = txtphone.Text.Trim

                DataSet1.Tables("cus").Rows.Add(Add_NewRow)

                'كود حفظ الاضافة
                Validate()
                DataAdapter1.Update(DataSet1.Tables("cus"))
                DataSet1.AcceptChanges()
                butsave.Text = " تعديل"

                'تحديث قاعدة البيانات
                conn.Open()
                DataSet1.Clear()
                DataAdapter1.Fill(DataSet1, "cus")
                conn.Close()


                'كود الانتقال الى اخر سجل تم اضافته بعد تخديث قاعدة البيانات
                Me.BindingContext(DataSet1, "cus").Position = Me.BindingContext(DataSet1, "cus").Count - 1

                '==================== متغير يكون بس ماقبل معي ========

                Dim records, current As Integer
                records = Me.BindingContext(DataSet1, "cus").Count
                current = Me.BindingContext(DataSet1, "cus").Position + 1
                Label4.Text = " عدد السجلات  " & current.ToString & " من أصل " & records.ToString



                '=======================================================================
                MsgBox("تـــم إضـــــافة العميل بنجاح ", 64, "نجاح")

            Else

                'كود معرفة رقم الصف الحالي في قاعدة البيانات  
                Dim Row_Num As Integer = Me.BindingContext(DataSet1, "cus").Position

                'كود حفظ التعديل
                DataSet1.Tables("cus").Rows(Row_Num).BeginEdit()


                If txtid.Text = "" Then DataSet1.Tables("cus").Rows(Row_Num).Item("cusID") = DBNull.Value Else DataSet1.Tables("cus").Rows(Row_Num).Item("cusID") = txtid.Text.Trim
                If txtname.Text = "" Then DataSet1.Tables("cus").Rows(Row_Num).Item("cusName") = DBNull.Value Else DataSet1.Tables("cus").Rows(Row_Num).Item("cusName") = txtname.Text.Trim
                If txtaddr.Text = "" Then DataSet1.Tables("cus").Rows(Row_Num).Item("cusAddress") = DBNull.Value Else DataSet1.Tables("cus").Rows(Row_Num).Item("cusAddress") = txtaddr.Text.Trim
                If txtphone.Text = "" Then DataSet1.Tables("cus").Rows(Row_Num).Item("cusPhone") = DBNull.Value Else DataSet1.Tables("cus").Rows(Row_Num).Item("cusPhone") = txtphone.Text.Trim
                ' If Tet_item_name.Text =""  Then DataSet1.Tables("item").Rows(Row_Num)Item("name")=DBNULL.VALUE ELSE DataSet1.Tables("item").rows(row_num).Item("name")=Tet_item_name.Text.Teim




                DataSet1.Tables("cus").Rows(Row_Num).EndEdit()


                'كود حفظ التعديل
                Validate()
                DataAdapter1.Update(DataSet1.Tables(0))
                DataSet1.AcceptChanges()


                '==================== متغير يكون بس ماقبل معي ========

                Dim records, current As Integer
                records = Me.BindingContext(DataSet1, "cus").Count
                current = Me.BindingContext(DataSet1, "cus").Position + 1
                Label4.Text = " عدد السجلات  " & current.ToString & " من أصل " & records.ToString



                '=======================================================================

                MsgBox("تم التعــــديل والحفظ بنــجاج", 64, "تعديل العمــــــــــــلاء")


            End If


        Catch ex As Exception




            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try


    End Sub