Сохранение БД через команду Update

        ЖиваяВодаDataSet.Tables("Таблица1").Rows(pol - 1)(5) = "Да"    
        Try
            Таблица1BindingSource.EndEdit()
            Таблица1TableAdapter.Update(ЖиваяВодаDataSet.Таблица1)
            pol = 0
        Catch ex As Exception
            MsgBox("Update failed")
        End Try

    Sub Load_Table() 'открытие таблицы
        CreateTable()
        If IO.File.Exists(Application.StartupPath & "\Table.txt") Then
            For Each Line As String In IO.File.ReadAllLines(Application.StartupPath & "\Table.txt", System.Text.Encoding.Default)
                add_Row(Line.Split("|")(0), Line.Split("|")(1))
            Next
        End If
    End Sub
    Public Sub SaveTable() 'сохранение таблицы
        Dim rows As New List(Of String)
        For Each row As DataGridViewRow In DataGridView1.Rows
            rows.Add(row.Cells(0).Value & "|" & row.Cells(1).Value)
        Next
        IO.File.WriteAllLines(Application.StartupPath & "\Table.txt", rows, System.Text.Encoding.Default)
    End Sub

    Private Sub submitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
        Handles submitButton.Click
 
        ' Update the database with the user's changes.
        Me.dataAdapter.Update(CType(Me.bindingSource1.DataSource, DataTable))
 
    End Sub