Обновить данные в БД собранные в одном гриде

Private Sub navSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles navSave.Click
        SaveData(dtMyTable)
    End Sub
 
    '-----|Процедура сохранения данных в БД|----------------------------------------------------------------------------------------------------------------
    Public Sub SaveData(ByVal table As DataTable) 
        Dim row As DataRow
        Dim iRowsAffected As Integer
        Dim cmdUpdate As OleDb.OleDbCommand
 
        Connection.Open()
        'создаем логику обновления для таблицы Table1
        cmdUpdate = CreateUpdateCommand("Table1")
        For Each row In table.Select("", "", DataViewRowState.ModifiedCurrent)
                    'и постепенно передаем новые значения в БД
                    iRowsAffected = SubmitUpdate(row, cmdUpdate)
        Next row
        
        cmdUpdate = CreateUpdateCommand("Table2")
        For Each row In table.Select("", "", DataViewRowState.ModifiedCurrent)
                    iRowsAffected = SubmitUpdate(row, cmdUpdate)
        Next row
        
        cmdUpdate = CreateUpdateCommand("Table3")
        For Each row In table.Select("", "", DataViewRowState.ModifiedCurrent)
                    iRowsAffected = SubmitUpdate(row, cmdUpdate)
        Next row
        Connection.Close()
    End Sub
    '-------------------------------------------------------------------------------------------------------------------------------------------------------
 
    '-----|Функция передачи обновленных строк в БД|---------------------------------------------------------------------------------------------------------
    Public Function SubmitUpdate(ByVal row As DataRow, ByVal cmd As OleDb.OleDbCommand) As Integer
        Dim pc As OleDb.OleDbParameterCollection = cmd.Parameters
        pc("Field1_New").Value = row("Field1")
        pc("Field1_Orig").Value = row("Field1", DataRowVersion.Original)
        Try
            Return cmd.ExecuteNonQuery
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Function
    '-------------------------------------------------------------------------------------------------------------------------------------------------------
 
    '-----|Функция создания параметризированного запроса UPDATE|--------------------------------------------------------------------------------------------
    Public Function CreateUpdateCommand(ByVal TableName As String) As OleDb.OleDbCommand
        Dim sSQL As String
        sSQL = "UPDATE " & TableName & " SET Field1=? WHERE Field1=?"
        Connection = New OleDb.OleDbConnection(sConnectionString)
 
        Dim cmd As New OleDb.OleDbCommand(sSQL, Connection)
        Dim pc As OleDb.OleDbParameterCollection = cmd.Parameters
        pc.Add("Field1_New", OleDb.OleDbType.VarWChar)
        pc.Add("Field1_Orig", OleDb.OleDbType.VarWChar)
        Return cmd
    End Function
    '-------------------------------------------------------------------------------------------------------------------------------------------------------