كود الحفظ في داتاغريد كان يعمل جيدا لكنه الآن لا يعمل فهل من مسعف ؟

PHP كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Label1.Text = ("  المرضى الذين لديهم موعد اليوم بتاريخ  " & Now.ToString("dd/M/yyyy"))
        Dim SQLstr5 As String = "SELECT * FROM Apoint WHERE Date like '" & Now.ToString("dd/M/yyyy") & "'"
        Conn3.Open()
        Dim DataAdapter3 As New OleDbDataAdapter(SQLstr5, Conn3)
        DataSet3.Clear()
        DataAdapter3.Fill(DataSet3, "Apoint")
        '  Me.BindingContext(DataSet3, "diagnosis").Position = Me.BindingContext(DataSet3, "diagnosis").Count - 1

        Conn3.Close()

        DataGridView4.DataSource = DataSet3
        DataGridView4.DataMember = "Apoint"
        DataGridView4.Columns(0).Visible = False
        ' DataGridView4.Columns(1).Visible = False
        DataGridView4.Columns(8).Visible = False
        DataGridView4.Columns(9).Visible = False
        DataGridView4.Columns(7).Visible = False
        Me.DataGridView4.Columns(1).Width = 180
        Me.DataGridView4.Columns(2).ReadOnly = True
        Me.DataGridView4.Columns(2).Width = 400

        Me.DataGridView4.Columns(1).HeaderText = "رقم الملف"
        Me.DataGridView4.Columns(2).HeaderText = "الاسم"
        Me.DataGridView4.Columns(3).HeaderText = "التاريخ"
        Me.DataGridView4.Columns(4).HeaderText = "الساعة"
        Me.DataGridView4.Columns(5).HeaderText = "الفترة"
        Me.DataGridView4.Columns(6).HeaderText = "حضر"
        Me.DataGridView4.Columns(3).ReadOnly = True
        Me.DataGridView4.Columns(3).Width = 180
        Me.DataGridView4.Columns(4).ReadOnly = True
        Me.DataGridView4.Columns(5).ReadOnly = True

        DataGridView4.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End sub

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim SQLstr As String = "select * from apoint"  ' 
        Dim Adapter As New OleDbDataAdapter(SQLstr, Conn)
        Dim Cmdb As New OleDbCommandBuilder(Adapter)
        If DataSet3.HasChanges = True Then
            Adapter.Update(DataSet3, "apoint")
        End If
    End Sub