اتصالا بالاكسس مشكله

الله يسعدكم عندي الكود مايحفظ الاضافه الكود مايطلع غلط بس لما ارجع للجدول الاقي ما انضاف السجل 

انتظر مساعدتكم الله يخليكم

Imports System.Data.OleDb

Public Class Form7
    Inherits System.Windows.Forms.Form

    Dim cn As New OleDbConnection("Provider=Microsoft.jet.OLEDB.4.0;Data Source=EWS.mdb")
    Dim da As New OleDbDataAdapter("select * from ew", cn)
    Dim ds As New DataSet
    Dim bnd As BindingManagerBase
    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        da.Fill(ds, "ew")
        bnd = BindingContext(ds.Tables("ew"))
        TextBox1.DataBindings.Add("text", ds.Tables("ew"), "p_no")
        TextBox2.DataBindings.Add("text", ds.Tables("ew"), "nume")
        TextBox3.DataBindings.Add("text", ds.Tables("ew"), "numberr")
        DataGridView1.DataSource = ds.Tables("ew")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        bnd.AddNew()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       
            Dim aj As New OleDbCommandBuilder(da)
            bnd.EndCurrentEdit()
        da.Update(ds, "ew")
            MsgBox(" تمت الاضافة بنجاح")
  End Sub
End Class