загрузка dataGridView datatable из разных файлов Excel

Dim dt As New System.Data.DataTable()
Private Excel07ConString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};Extended Properties='Excel 8.0;HDR={1}'"
path_text = "D:\ноябрь\2016.11.03.xlsx"
Dim extension As String = Path.GetExtension(path_text)
        Dim conStr As String, sheetName As String
 
        conStr = String.Format(Excel07ConString, filePath, "NO")
        sheetName = "Экспорт плейлиста$"
 
        'Read Data from the First Sheet.
        Using con As New System.Data.OleDb.OleDbConnection(conStr)
            Using cmd As New OleDbCommand()
                Using oda As New OleDbDataAdapter()
 
                    cmd.CommandText = (Convert.ToString("SELECT * From [") & sheetName) + "]"
                    cmd.Connection = con
                    con.Open()
                    oda.SelectCommand = cmd
                    oda.Fill(dt)
                    con.Close()
 
                    'Populate DataGridView.
                    dataGridView1.DataSource = dt
                End Using
            End Using
        End Using
 
        'удаление пустых строк
        Dim b
        lr = dataGridView1.RowCount - 1
        For i = 0 To lr
            If i > lr Then Exit For
            If dataGridView1.Item(0, i).Value.ToString = "" Then
                dataGridView1.Rows.RemoveAt(i)
                lr = lr - 1
            End If
        Next
 
        'копирование столбца
        For i = 0 To lr - 1
            dataGridView1.Item(6, i).Value = dataGridView1.Item(5, i).Value
        Next
        dataGridView1.Columns(6).DisplayIndex = 1
 
        'удаление лишних колонок
        dt.Columns.RemoveAt(8)
 
        'удаление шапки
        For i = 0 To 15
            If dataGridView1.Item(0, 0).Value.ToString <> "05:00:00:00" Then
                dataGridView1.Rows.RemoveAt(0)
            Else
                Exit For
            End If
        Next