Не добавляются записи в 3 таблицы из 6

Public Class Form6
    Private Sub КлиентBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles КлиентBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.КлиентBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.KursDataSet)
 
    End Sub
 
    Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'KursDataSet.Фирмы' table. You can move, or remove it, as needed.
        Me.ФирмыTableAdapter.Fill(Me.KursDataSet.Фирмы)
        'TODO: This line of code loads data into the 'KursDataSet.Стоимость' table. You can move, or remove it, as needed.
        Me.СтоимостьTableAdapter.Fill(Me.KursDataSet.Стоимость)
        'TODO: This line of code loads data into the 'KursDataSet.Место_проведения' table. You can move, or remove it, as needed.
        Me.Место_проведенияTableAdapter.Fill(Me.KursDataSet.Место_проведения)
        'TODO: This line of code loads data into the 'KursDataSet.Мероприятия' table. You can move, or remove it, as needed.
        Me.МероприятияTableAdapter.Fill(Me.KursDataSet.Мероприятия)
        'TODO: This line of code loads data into the 'KursDataSet.Договор' table. You can move, or remove it, as needed.
        Me.ДоговорTableAdapter.Fill(Me.KursDataSet.Договор)
        'TODO: This line of code loads data into the 'KursDataSet.Клиент' table. You can move, or remove it, as needed.
        Me.КлиентTableAdapter.Fill(Me.KursDataSet.Клиент)
 
 
        Me.КлиентBindingSource.AddNew()
        Me.ДоговорBindingSource.AddNew()
        Me.МероприятияBindingSource.AddNew()
        Me.Место_проведенияBindingSource.AddNew()
        Me.ФирмыBindingSource.AddNew()
        Me.СтоимостьBindingSource.AddNew()
        ID_клиентаTextBox1.Text = ID_клиентаTextBox.Text
        ID_договораTextBox1.Text = ID_договораTextBox.Text
        Id_мероприятияTextBox1.Text = ID_мероприятияTextBox.Text
        Id_мероприятияTextBox2.Text = ID_мероприятияTextBox.Text
        Id_фирмыTextBox.Text = Id_фирмыTextBox1.Text
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        КлиентBindingSource.EndEdit()
        ФирмыBindingSource.EndEdit()
        ДоговорBindingSource.EndEdit()
        МероприятияBindingSource.EndEdit()
        СтоимостьBindingSource.EndEdit()
        Место_проведенияBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.KursDataSet)
    End Sub
 
    Private Sub Form6_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        Application.Exit()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        МероприятияBindingSource.EndEdit()
        Место_проведенияBindingSource.EndEdit()
        СтоимостьBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.KursDataSet)
    End Sub
End Class