[سؤال] مشكلة في اضافة سجلات جديدة على data grid وقاعدة البيانات

PHP كود :

Imports System.Data
Imports System.Data.OleDb
Imports System.Text
Module Module1
    Public constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|datadirectory|\db1.mdb;Persist Security Info=True"

    Public con As New OleDbConnection(constr)
    Public fusername As String
    Public str As String
    Public b As New BindingSource
    Public cmd As New OleDbCommand
    Public da As New OleDbDataAdapter
    Public ds2 As New DataSet
    Public dt2 As DataTable
    Public dr As DataRow
    Public dc As DataColumn 

PHP كود :

Sub one()
        'كود أرفاق البيانات على أدوات البرنامج
        str = " select * from medcines "
        con.Open()
        Dim da2 As New OleDbDataAdapter(str, con)
        da2.Fill(ds2, "medcines")
        con.Close()
        TextBox1.DataBindings.Add("text", ds2, "medcines.id_medcine")
        TextBox2.DataBindings.Add("text", ds2, "medcines.name_medcine")
        TextBox3.DataBindings.Add("text", ds2, "medcines.id_house")
        TextBox4.DataBindings.Add("text", ds2, "medcines.name_phycis")
        DataGridView1.DataSource = ds2
        DataGridView1.DataMember = "medcines"
        DataGridView1.Columns(0).HeaderText = "رقم الدواء"
        DataGridView1.Columns(1).HeaderText = "أسم الدواء"
        DataGridView1.Columns(2).HeaderText = "رقم الرف"
        DataGridView1.Columns(3).HeaderText = "الأسم الدوائي"
        DataGridView1.AllowUserToAddRows = False
        DataGridView1.AllowUserToDeleteRows = False
        DataGridView1.SelectionMode = False
        DataGridView1.AllowUserToResizeColumns = False
        DataGridView1.AllowUserToResizeRows = False
        'الاكمال التلقائي في الكمبوبوكس
        With ComboBox1
            .DataSource = ds2.Tables("medcines")
            .DisplayMember = "name_medcine"
            .AutoCompleteSource = AutoCompleteSource.ListItems
            .AutoCompleteMode = AutoCompleteMode.Suggest
        End With
    End Sub 

PHP كود :

Try
            Dim dr As DataRow
            Dim dt1 As New DataTable
            Dim da3 As New OleDbDataAdapter
            dt1 = ds2.Tables("medcines")
            dr = dt1.NewRow
            dr("id_medcine") = TextBox1.Text
            dr("name_medcine") = TextBox2.Text
            dr("id_house") = TextBox3.Text
            dr("name_phycis") = TextBox4.Text
            dt1.Rows.Add(dr)
            DataGridView1.Rows.Add.ToString()

            DataGridView1.DataSource = ds2
            MsgBox("Add was successful.")
            con.Close()
        Catch ex As Exception

        End Try 