Обновление данных из DataTable в базу данных Access

Imports System.Data.OleDb
 
Public Class Form1
    Private Sub Button2_Click(sender As Object, e As System.EventArgs) Handles Button2.Click
        importExel()
    End Sub
    Private Sub importExel()
        Dim conn = New OleDbConnection With {
            .ConnectionString =
        "Provider = Microsoft.ACE.OLEDB.12.0;data source=" + IO.Path.Combine(Application.StartupPath, "DB\DBTelSg.accdb")
        }
        Dim conn_ex As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" &
                                         "Data Source='D:\DB\Телефонный справочник с корпоративными номерами 20.08.2020.xlsm';Extended Properties =""Excel 12.0;IMEX=1""")
        Dim dADapter As New OleDbDataAdapter("SELECT [Ф#И#О#], Должность, [Корп#-связь], [Личный-номер], [E-mail] FROM [Лист1$] Where [Ф#И#О#]is not null", conn_ex)
        Dim rows As Integer
        Dim tb2 As New DataTable
        Try
            rows = dADapter.Fill(tb2)
            DataGridView2.DataSource = tb2
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        Dim SelCommand As New OleDbCommand("SELECT ФИО, Должность, [Служебный номер], [Личный номер], [Эл почта] from Spisok ", conn)
        Dim UpCommand As New OleDbCommand("UPDATE ФИО, Должность, [Служебный номер], [Личный номер], [Эл почта] from Spisok ", conn)
        Dim da As New OleDbDataAdapter(SelCommand)
        Dim tb1 As New DataTable
        Dim Arows As Integer
        Arows = da.Fill(tb1)
        Dim t1 = tb1.AsEnumerable
        Dim t2 = tb2.AsEnumerable
        Dim tt = t1.Union(t2, DataRowComparer.Default)
        Dim nDt As DataTable = tt.CopyToDataTable
        Dim nda As New OleDbDataAdapter(UpCommand)
        If nDt IsNot Nothing Then
            conn.Open()
            nda.Update(nDt)
            conn.Close()
            DataGridView1.DataSource = nDt
        End If

       Private Function LoadX(ByVal name As String) As DataTable
            Dim tb As DataTable = New DataTable("tabX")
            With tb.Columns
            tb.Columns.Add(New DataColumn("FIO", GetType(String)))
            tb.Columns.Add(New DataColumn("Position", GetType(String)))
            tb.Columns.Add(New DataColumn("Office_phone", GetType(String)))
            tb.Columns.Add(New DataColumn("Personal_phone", GetType(String)))
            tb.Columns.Add(New DataColumn("Email", GetType(String)))
        End With
            Dim row As Integer
        Using sl As SLDocument = New SLDocument(name, "Лист1")
            Dim stats As SLWorksheetStatistics = sl.GetWorksheetStatistics()
            Dim ciStart As Integer = stats.StartColumnIndex
            For row = stats.StartRowIndex + 1 To stats.EndRowIndex
                If Not String.IsNullOrEmpty(sl.GetCellValueAsString(row, ciStart)) Then _
                        tb.Rows.Add(sl.GetCellValueAsString(row, ciStart + 1), sl.GetCellValueAsString(row, ciStart + 2), sl.GetCellValueAsString(row, ciStart + 3), sl.GetCellValueAsString(row, ciStart + 4))
            Next
        End Using
        Return tb
        End Function

Dim cmd As New OleDbCommand(cmdText, conn)
For Each r As DataRow In tt
    cmd.Parameters.AddWithValue("@TreeX", r!Tree)
    cmd.Parameters.AddWithValue("@CountryX", r!Country)
    cmd.Parameters.AddWithValue("@MaxHeightX", r!MaxHeight)
    cmd.Parameters.AddWithValue("@YearX", r!Year)
    cmd.ExecuteNonQuery()
    cmd.Parameters.Clear()
Next

Imports System.Data.OleDb
Imports System.IO
Imports SpreadsheetLight
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim xName As String = "D:\DB\Телефонный справочник с корпоративными номерами 20.08.2020.xlsm"
        Dim dbName As String = Path.Combine(Application.StartupPath, "DB\DBTelSg.accdb")
        Dim tbX As DataTable = LoadX(xName)
        DataGridView2.DataSource = tbX
        InsertNewRows(dbName, tbX)
    End Sub
    Private Function LoadX(ByVal name As String) As DataTable
        Dim tb As DataTable = New DataTable("tabX")
        With tb.Columns
            tb.Columns.Add(New DataColumn("FIO", GetType(String)))
            tb.Columns.Add(New DataColumn("Position", GetType(String)))
            tb.Columns.Add(New DataColumn("Office_phone", GetType(String)))
            tb.Columns.Add(New DataColumn("Personal_phone", GetType(String)))
            tb.Columns.Add(New DataColumn("Email", GetType(String)))
        End With
        Dim row As Integer
        Using sl As SLDocument = New SLDocument(name, "Лист1")
            Dim stats As SLWorksheetStatistics = sl.GetWorksheetStatistics()
            Dim ciStart As Integer = stats.StartColumnIndex + 1
            For row = stats.StartRowIndex + 1 To stats.EndRowIndex
                If Not String.IsNullOrEmpty(sl.GetCellValueAsString(row, ciStart)) Then _
                        tb.Rows.Add(sl.GetCellValueAsString(row, ciStart), sl.GetCellValueAsString(row, ciStart + 1), sl.GetCellValueAsString(row, ciStart + 2), sl.GetCellValueAsString(row, ciStart + 3), sl.GetCellValueAsString(row, ciStart + 4))
            Next
        End Using
        Return tb
    End Function
    Private Sub InsertNewRows(ByVal name As String, ByVal tbX As DataTable)
        Try
            Using conn As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & name & ";Password=;")
                conn.Open()
                Dim ad As New OleDbDataAdapter()
                ad.SelectCommand = New OleDbCommand("SELECT * FROM Spisok", conn)
                Dim tb1 As New DataTable("tab1")
                ad.Fill(tb1)
                DataGridView1.DataSource = tb1
                Dim t1 = tb1.AsEnumerable
                Dim t2 = tbX.AsEnumerable
                Dim tt = t2.Except(t1, DataRowComparer.Default)
                Dim cmdText As String = "INSERT INTO Spisok ([ФИО], [Должность], [Служебный номер], [Личный номер], [Эл почта]) VALUES (@FIOX, @PositionX, @Office_phoneX, @Personal_phoneX, @EmailX )"
                Dim cmd As New OleDbCommand(cmdText, conn)
                For Each r As DataRow In tt
                    cmd.Parameters.AddWithValue("@FIOX", r!FIO)
                    cmd.Parameters.AddWithValue("@PositionX", r!Position)
                    cmd.Parameters.AddWithValue("@Office_phoneX", r!Office_phone)
                    cmd.Parameters.AddWithValue("@Personal_phoneX", r!Personal_phone)
                    cmd.Parameters.AddWithValue("@EmailX", r!Email)
                    cmd.ExecuteNonQuery()
                    cmd.Parameters.Clear()
                Next
                conn.Close()
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

Private Sub InsertNewRows(ByVal name As String, ByVal tbX As DataTable)
        Try
            Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & name & ";Password=;")
                conn.Open()
                Dim ad As New OleDbDataAdapter()
                ad.SelectCommand = New OleDbCommand("SELECT * FROM Table1", conn)
                Dim tb1 As New DataTable("tab1")
                ad.Fill(tb1)
                DataGridView1.DataSource = tb1
                Dim t1 = tb1.AsEnumerable
                Dim t2 = tbX.AsEnumerable
                Dim tt = t2.Except(t1, DataRowComparer.Default)
                Dim cmdText As String = "INSERT INTO Table1 ([Tree], [Country], [MaxHeight], [Year]) VALUES (@TreeX, @CountryX, @MaxHeightX, @YearX)"
                For Each r As DataRow In tt
                    Dim cmd As New OleDbCommand(cmdText, conn)
                    cmd.Parameters.AddWithValue("@TreeX", r!Tree)
                    cmd.Parameters.AddWithValue("@CountryX", r!Country)
                    cmd.Parameters.AddWithValue("@MaxHeightX", r!MaxHeight)
                    cmd.Parameters.AddWithValue("@YearX", r!Year)
                    cmd.ExecuteNonQuery()
                Next
                tb1.Rows.Clear()
                ad.SelectCommand = New OleDbCommand("SELECT * FROM Table1", conn)
                ad.Fill(tb1)
                DataGridView1.DataSource = tb1
                conn.Close()
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub