كتبت كود برمجي للحفظ ولكنه لا يحفظ في قاعدة البيانات اكسس

وهذا هو كود الحفظ ... لذا ارجو من الاخوة المبرمجين مساعدتنا واكون شاكرا ومقدرا 

  Dim Str As String = ("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Emp.mdb;user id=admin;jet oledb:database password=123")



        Dim con As New OleDbConnection(str)

        Dim issql As String = "select * from main where b2='" & Me.TextBox2.Text & "'"

        Dim isds As New DataSet

        Dim isda As New OleDb.OleDbDataAdapter(issql, con)

        isda.Fill(isds, "b2")

        If Me.BindingContext(isds, "b2").Count > 0 Then

            MsgBox("اسم الموظف موجود مسبقا ", MsgBoxStyle.Critical, "خطا")

            Exit Sub

        End If

        'PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP

        Try

            Dim Savecommand As New OleDb.OleDbCommand



            'فتح الاتصال بمزود البيانات وهى قاعده البيانات



            Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Emp.mdb;user id=admin;jet oledb:database password=123"



            Dim newconnection As New OleDbConnection(connectionstring)

            Savecommand.Connection = newconnection

            Savecommand.CommandType = CommandType.Text





            'اضافه المعلومات التى تكتبها الى الجدول كل سجل تكتبه بما يماثله فى الجدول



            Savecommand.CommandText = "insert into main



([W1],[W2],[W3],[W4],[W5],[W6],[W7],[W8],[W9],[W10],[W11],[W12],[W13],[W14],[W15]) values ('" &

            TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text &

            "','" & TextBox4.Text & "','" & DateTimePicker1.Text & "','" &

            TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" &

            DateTimePicker2.Text & "','" & TextBox8.Text & "','" & TextBox12.Text & "','" &

            TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox9.Text & "','" & PictureBox1.ImageLocation & "') "



            'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال

            newconnection.Open()

            Savecommand.ExecuteNonQuery()

            newconnection.Close()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

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