سؤال حول الإدخال في الداتا بيس

السلام عليكم

text box أحاول عمل شاشة لتسجيل العملاء بالموقع وصممت الشاشة ووضعت مجموعة من

وأريد ربطها بمايكروسوفت اكسيس

adapter&connection&dataset وقمت بعمل

submitووضعت الكود التالي داخل زر

If Me.user_name.Text = "" Or Me.pass_word.Text = "" Then
            'MessageBox.Show("Write All Information")
            'MsgBox("Write All Information", MsgBoxStyle.OKOnly)
        Else

            Dim objTable As DataTable
            objTable = Me.DataSet21.Tables("customer")
            Dim drRows As DataRowCollection
            Dim objNewRow As DataRow
            drRows = objTable.Rows
            objNewRow = objTable.NewRow
            objNewRow("User_name") = Me.user_name.Text
            objNewRow("pass_word") = Me.pass_word.Text
            'compareMe.pass_word.Text ,Me.retype_pass Then
            objNewRow("First_Name") = Me.firstname.Text
            objNewRow("Middle_Name") = Me.middlename.Text
            objNewRow("last_name") = Me.lastname.Text
            objNewRow("day") = Me.day.SelectedValue
            objNewRow("month") = Me.month.SelectedValue
            objNewRow("year") = Me.year.Text
            objNewRow("Gender") = Me.gender.SelectedValue
            objNewRow("Marital_State") = Me.marital.SelectedValue
            objNewRow("Country") = Me.country.SelectedValue
            objNewRow("city") = Me.city.SelectedValue
            objNewRow("Mobile_Phone") = Me.mobile.Text
            objNewRow("Neighborhood") = Me.neighborhood.Text
            objNewRow("Mobile_Phone") = Me.mobile.Text
            objNewRow("Work_Phone") = Me.work_phone.Text
            objNewRow("Home_Phone") = Me.home_phone.Text
            objNewRow("Postal_Code") = Me.postal_code.Text
            objNewRow("B_O_Box") = Me.b_code.Text
            objNewRow("Responsible") = Me.responsible.Text
            drRows.Add(objNewRow)
            Me.OleDbDataAdapter1.Update(Me.DataSet21.Customer)
            'MsgBox("successful registration", MsgBoxStyle.OKOnly)

        End If
    End Sub

يظهر لي في هذه الجملة خطا

Me.OleDbDataAdapter1.Update(Me.DataSet21.Customer)

aspعلما بأني اعمل على

visual basicمن

فهل من شخص يدلني على الخطا وجزاه الله خيرا