Excel в Sql добавление некоторых строк на сервер sql

cmd.CommandText = (Convert.ToString("SELECT * From [") & excelSheet) & "] Order By" & columnCompany & "OFFSET 0 ROWS  FETCH NEXT 100000 ROWS ONLY "

Я пытаюсь сопоставить форму данных excel с таблицей sql, но в таблице excel есть много записей, поэтому у меня закончилась нехватка памяти, если я попытаюсь сразу добавить все записи. Поэтому я пытаюсь использовать эту строку кода

cmd.CommandText = (Convert.ToString("SELECT * From [") & excelSheet) & "] Order By B OFFSET 0 ROWS  FETCH NEXT 100000 ROWS ONLY " 

Чтобы добавить 100000 строк. Затем я намерен очистить таблицу данных и сделать то же самое только с 100001 до 200000 и так далее.

Но я не могу заставить это работать правильно, он отлично работает, когда это просто SELECT TOP 100000 FROM... но тогда я не знаю, как получить следующую 100000 записей. Я думаю, что Order By - это проблема, поскольку я не уверен, как получить правильный столбец.

Вот мой код Ниже

 Private Sub btnMap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMap.Click

    'Allows columns to be moved mapped in the correct order
    Dim nbColumnsToTransfer As Integer = dgvMapped.Columns.GetColumnCount(1)

    Dim indexes As List(Of Integer) = (From column As DataGridViewColumn In dgvLoadedata.Columns.Cast(Of DataGridViewColumn)() _
                                          Take nbColumnsToTransfer _
                                          Order By column.DisplayIndex _
                                          Select column.Index).ToList()

    Dim columnCompany As Integer = indexes(0)
    Dim columnEmail As Integer = indexes(1)
    Dim columnFirstName As Integer = indexes(2)
    Dim columnSurname As Integer = indexes(3)
    Dim columnPostCode As Integer = indexes(4)
    Dim columnTelephone As Integer = indexes(5)
    Dim columnEmployeeBand As Integer = indexes(6)

    Dim DeleteConnection As New Data.SqlClient.SqlConnection
    DeleteConnection.ConnectionString = "Data Source=DC01\SQLEXPRESS;Initial Catalog=YCM;User ID=sa;Password=S0rtmypc!"
    DeleteConnection.Open()
    Dim sqlDTM As String = "Delete From TempMapped"
    Dim command As New SqlCommand(sqlDTM, DeleteConnection)
    command.ExecuteNonQuery()
    Dim sqlDTSR As String = "Delete From TempSplitReq"
    command = New SqlCommand(sqlDTSR, DeleteConnection)
    command.ExecuteNonQuery()
    DeleteConnection.Close()

    If chkContactSplitReq.Checked = True Then

        Dim dt As New DataTable()
        Using con As New OleDbConnection(conString)
            Using cmd As New OleDbCommand()
                Using oda As New OleDbDataAdapter()
cmd.CommandText = (Convert.ToString("SELECT * From [") & excelSheet) & "] Order By" & columnCompany & "OFFSET 0 ROWS  FETCH NEXT 100000 ROWS ONLY ""
                    cmd.Connection = con
                    con.Open()
                    oda.SelectCommand = cmd
                    oda.Fill(dt)
                    con.Close()
                End Using
            End Using
        End Using

        Dim connection As String = "Data Source=DC01\SQLEXPRESS;Initial Catalog=YCM;User ID=sa;Password=S0rtmypc!"
        Using cn As New SqlConnection(connection)
            cn.Open()
            Using copy As New SqlBulkCopy(cn)
                copy.ColumnMappings.Add(columnCompany, 0)
                copy.ColumnMappings.Add(columnEmail, 1)
                copy.ColumnMappings.Add(columnFirstName, 2)
                copy.ColumnMappings.Add(columnPostCode, 3)
                copy.ColumnMappings.Add(columnTelephone, 4)
                copy.DestinationTableName = "TempSplitReq"
                copy.WriteToServer(dt)
            End Using
        End Using

        Dim SplitConnection As New Data.SqlClient.SqlConnection
        SplitConnection.ConnectionString = "Data Source=DC01\SQLEXPRESS;Initial Catalog=YCM;User ID=sa;Password=S0rtmypc!"
        SplitConnection.Open()
        Dim sqlSplit As String = "TempSplitReq_SaveToMapped"
        Dim commandSplit As New SqlCommand(sqlSplit, SplitConnection)
        commandSplit.ExecuteNonQuery()
        SplitConnection.Close()

    Else

        Dim dt As New DataTable()
        Using con As New OleDbConnection(conString)
            Using cmd As New OleDbCommand()
                Using oda As New OleDbDataAdapter()
                    cmd.CommandText = (Convert.ToString("SELECT * From [") & excelSheet) + "] "
                    cmd.Connection = con
                    con.Open()
                    oda.SelectCommand = cmd
                    oda.Fill(dt)
                    con.Close()
                End Using
            End Using
        End Using

        Dim connection As String = "Data Source=DC01\SQLEXPRESS;Initial Catalog=YCM;User ID=sa;Password=S0rtmypc!"
        Using cn As New SqlConnection(connection)
            cn.Open()
            Using copy As New SqlBulkCopy(cn)
                copy.ColumnMappings.Add(columnCompany, 0)
                copy.ColumnMappings.Add(columnEmail, 1)
                copy.ColumnMappings.Add(columnFirstName, 2)
                copy.ColumnMappings.Add(columnSurname, 3)
                copy.ColumnMappings.Add(columnPostCode, 4)
                copy.ColumnMappings.Add(columnTelephone, 5)
                copy.DestinationTableName = "TempMapped"
                copy.WriteToServer(dt)
            End Using
        End Using

    End If
    MsgBox("Data Mapping Complete")

End Sub