Как создать DataAdapter для возможности сохранения (обновления) данных

    Private Sub LoadTable(ByVal TableName As String)
        Dim DA As New SqlDataAdapter("SELECT * FROM " & TableName, Connection)
        Dim BLD As New SqlCommandBuilder(DA)
        DA.DeleteCommand = BLD.GetDeleteCommand
        DA.InsertCommand = BLD.GetInsertCommand
        DA.UpdateCommand = BLD.GetUpdateCommand
        DA.FillSchema(DS, SchemaType.Mapped, TableName)
        DA.Fill(DS, TableName)
    End Sub

Imports System.Data.SqlClient
 
Public Class frmMain
    Dim ConnectionString As String
    Dim Connection As SqlConnection
    Dim DS As New DataSet
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        ConnectionString =
            "Data Source='server';" &
            "Initial Catalog='payto';" &
            "User Id='sa';" &
            "Password='sa';"
        Connection = New SqlConnection(ConnectionString)
 
        LoadTable("Списки")
        dgvСписки.DataSource = DS
        dgvСписки.DataMember = ("Списки")
 
        LoadTable("Выплаты")
        DS.Relations.Add("Списки2Выплаты", DS.Tables("Списки").Columns("id"), DS.Tables("Выплаты").Columns("Список"))
        dgvВыплаты.DataSource = DS
        dgvВыплаты.DataMember = "Списки.Списки2Выплаты"
 
        'устанавливаем формат для полей с деньгами 0.00
        dgvВыплаты.Columns("Сумма").DefaultCellStyle.Format = "0.00"
        dgvСписки.Columns("Сумма").DefaultCellStyle.Format = "0.00"
 
        'скрываем ненужные столбцы
        dgvВыплаты.Columns("id").Visible = False
        dgvСписки.Columns("id").Visible = False
    End Sub
 
    Private Sub LoadTable(ByVal TableName As String)
        Dim DA As New SqlDataAdapter("SELECT * FROM " & TableName, Connection)
        Dim BLD As New SqlCommandBuilder(DA)
        DA.DeleteCommand = BLD.GetDeleteCommand
        DA.InsertCommand = BLD.GetInsertCommand
        DA.UpdateCommand = BLD.GetUpdateCommand
        DA.FillSchema(DS, SchemaType.Mapped, TableName)
        DA.Fill(DS, TableName)
    End Sub
 
    Private Sub tsAddList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsAddList.Click
        Dim nr As DataRow = DS.Tables("Списки").NewRow
        DS.Tables("Списки").Rows.Add(nr)
    End Sub
 
    Private Sub tsAddPay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsAddPay.Click
        Dim nr As DataRow = DS.Tables("Выплаты").NewRow
        nr.Item("Список") = dgvСписки.CurrentRow.Cells("id").Value
        DS.Tables("Выплаты").Rows.Add(nr)
    End Sub
 
    Private Sub СохранитьToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsSaveLists.Click
 
    End Sub
 
    Private Sub tsSavePays_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsSavePays.Click
        dgvВыплаты.EndEdit()
        DS.Tables("Выплаты")
    End Sub
End Class

dgvВыплаты.DataSource = Выплаты.DT
...
Выплаты.DA.Update

    Private Structure Table
        Dim DT As DataTable
        Dim DA As SqlDataAdapter
    End Structure
 
    Dim Выплаты As Table
    Dim Списки As Table

    Private Sub LoadTable(ByVal TableName As String, ByRef Dest As Table)
        Dim DA As New SqlDataAdapter("SELECT * FROM " & TableName, Connection)
        Dim BLD As New SqlCommandBuilder(DA)
        DA.DeleteCommand = BLD.GetDeleteCommand
        DA.InsertCommand = BLD.GetInsertCommand
        DA.UpdateCommand = BLD.GetUpdateCommand
        Dest.DA = DA
        Dest.DT = New DataTable
        Dest.DA.FillSchema(Dest.DT, SchemaType.Mapped)
        Dest.DA.Fill(Dest.DT)
        DS.Tables.Add(Dest.DT)
    End Sub

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        ConnectionString =
            "Data Source='srvsitex';" &
            "Initial Catalog='pavlov_payto';" &
            "User Id='sa';" &
            "Password='@dm!n#1rai';"
        Connection = New SqlConnection(ConnectionString)
 
        LoadTable("Списки", Списки)
        dgvСписки.DataSource = DS
        dgvСписки.DataMember = "Списки"
 
        LoadTable("Выплаты", Выплаты)
        DS.Relations.Add("Списки2Выплаты", DS.Tables("Списки").Columns("id"), DS.Tables("Выплаты").Columns("Список"))
        dgvВыплаты.DataSource = DS
        dgvВыплаты.DataMember = "Списки.Списки2Выплаты"
 
        'устанавливаем формат для полей с деньгами 0.00
        dgvВыплаты.Columns("Сумма").DefaultCellStyle.Format = "0.00"
        dgvСписки.Columns("Сумма").DefaultCellStyle.Format = "0.00"
 
        'скрываем ненужные столбцы
        dgvВыплаты.Columns("id").Visible = False
        dgvСписки.Columns("id").Visible = False
    End Sub

    Private Sub tsSavePays_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsSavePays.Click
        dgvВыплаты.EndEdit()
        Выплаты.DA.Update(Выплаты.DT)
    End Sub