[kslawy]

السلام عليكم ورحمة الله وبركاته

لأنك أضفت AddNew في زري أمر مختلفين وهما :

كود :

Private Sub NewRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewRecord.Click
   Me.BindingContext(Ds, "Tb").AddNew()
    End Sub

و

كود :

Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click

     Dim R As DataRow = Ds.Tables("Tb").NewRow

        R(0) = NameText.Text
        R(1) = PhonNoText.Text
        Ds.Tables("Tb").Rows.Add(R)
        Cmdb = New OleDbCommandBuilder(Da)
    End Sub

يفضل حذف الأول

****
***
**
*