Обновление данных методом Update - Visual Basic .NET - Ответ 4820405

Imports System.Data.OleDb
Imports System.Windows.Forms
 
Public Class Job
    Private B As DataTable
 
    Private CO As New OleDb.OleDbConnection(
                    "Data Source=""|DataDirectory|\Parik.ccdb"";User " & _
                    "ID=Admin;Provider=""Microsoft.Jet.OLEDB.4.0"";")
 
    Private CB As OleDb.OleDbCommandBuilder
    Dim COMMAND = New OleDbCommand
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' т.к. в таблице возможно добавление колонок, приходится делать запрос, чтобы потом составить строку запроса
        SqlQuery = "SELECT * FROM Job" 
        Dim B As DataTable, a As Integer 
        B = GetDt(SqlQuery)   ' есть у меня в модуле такая функция с конструкцией SELECT
' здесь я составляю строку запроса
        COMMAND.CommandText = "UPDATE Job SET Master = ?, Tel = ?, Inf = ?, Works = ?, Founder = ?, Min = ?"
        Do Until a = B.Columns.Count - 7
            COMMAND.CommandText = COMMAND.CommandText + ", " + B.Columns(7 + a).ColumnName.ToString + " = ?"
            a = a + 1
        Loop
        COMMAND.CommandText = COMMAND.CommandText + " WHERE (Id = ?)"
' здесь, я так понимаю, вместо ? должны встать следующие параметры
        COMMAND.Parameters.Add("Master", OleDbType.VarWChar, 50, "Master")
        COMMAND.Parameters.Add("Tel", OleDbType.VarWChar, 50, "Tel")
        COMMAND.Parameters.Add("Inf", OleDbType.VarWChar, 50, "Inf")
        COMMAND.Parameters.Add("Works", OleDbType.Boolean, 4, "Works")
        COMMAND.Parameters.Add("Founder", OleDbType.Boolean, 4, "Founder")
        COMMAND.Parameters.Add(New OleDbParameter("Original_Id",
                OleDbType.Integer, 0, System.Data.ParameterDirection.
             Input, False, CType(0, Byte), CType(0, Byte), "Id",
                         System.Data.DataRowVersion.Original, Nothing))
' далее, я так понимаю, подготавливается обновление
        DA.UpdateCommand = COMMAND
        COMMAND.Connection = CO
 
        Try
            Dim kol As Integer = DA.Update(B)
            MessageBox.Show("Обновлено " & kol & " записей")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Недоразумение")
        End Try
    End Sub