Экспорт таблицы в Excel из БД Access посредством VB.NET

Imports System.Data
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop
 
Module Export_DATA_Excel
    Public Sub ExportToExcel(ByVal excelDataTbl As DataTable, ByVal Title As String, ByVal ParamArray ColumnHeaderText() As String)
 
        Dim excel As Excel.Application
        Dim WBook As Excel.Workbook
        Dim WSheet As Excel.Worksheet
 
        excel = CreateObject("Excel.Application")
        WBook = excel.Workbooks.Add
        WSheet = WBook.ActiveSheet
        excel.Visible = True
 
 
        With WSheet.Range("A1", "J2")
 
            .Merge()
            .Value = Title
            .WrapText = True
            .Interior.Color = Color.Lavender
            .Font.Color = Color.Crimson
            .Font.Size = 12
            .Font.Bold = True
            .HorizontalAlignment = XlHAlign.xlHAlignCenter
            .VerticalAlignment = XlVAlign.xlVAlignCenter
        End With
 
 
        WSheet.Range("A3", "J3").Merge()
        WSheet.Range("A3", "J3").RowHeight = 0
 
        Dim tbl As DataTable = excelDataTbl
 
        For i = 0 To ColumnHeaderText.Length - 1
            WSheet.Cells(4, i + 1) = ColumnHeaderText(i)
 
        Next
 
 
 
        For x = 0 To tbl.Rows.Count - 1
 
            For y = 0 To tbl.Columns.Count - 1
 
                WSheet.Cells(x + 5, y + 1) = tbl.Rows(x)(y)
 
            Next
        Next
 
    End Sub
End Module

 Dim StrQuery As String = "Select * FROM График "
 
        Dim WhereClause As String = String.Empty
        Dim i As Integer
        If Int32.TryParse(txtSearch.Text.Trim().ToString(), i) Then
            WhereClause = "WHERE Код = " & Convert.ToInt32(txtSearch.Text.Trim().ToString()) & " "
        Else
            WhereClause = "WHERE Код LIKE = '" & Convert.ToString(txtSearch.Text.Trim()) & "' "
        End If
 
 
        WhereClause = "OR ФИО LIKE '*" & txtSearch.Text.Trim().ToString() & "*' " &
                      "OR Должность LIKE '%" & txtSearch.Text.Trim().ToString() & "%' " &
                      "OR Подразделение LIKE '%" & txtSearch.Text.Trim().ToString() & "%' " &
                      "OR Область_аттестации LIKE '%" & txtSearch.Text.Trim().ToString() & "%' " &
                      "OR Дата LIKE '%" & txtSearch.Text.Trim().ToString() & "%' " &
                      "OR Форма_подготовки LIKE '%" & txtSearch.Text.Trim().ToString() & "%' " &
                      "OR Вид_надзора LIKE '*" & txtSearch.Text.Trim().ToString() & "*' ORDER BY Код ASC;"
 
 
        StrQuery &= WhereClause
 
 
 
 
        Dim datast As New DataSet()
 
        Using con As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Application.StartupPath & "\PromBez.accdb;Persist Security Info=True")
            Using da As New System.Data.OleDb.OleDbDataAdapter(StrQuery, con)
 
                da.Fill(datast, "ExcelData")
 
            End Using
 
        End Using
 
        If datast.Tables(0).Rows.Count <= 0 Then
 
            MessageBox.Show("Нет данных для загрузки, попробуйте еще раз.", "Экспорт в MSExcel", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Form1_Load(sender, e)
            Return
 
        End If
 
 
        Dim dataTable As DataTable = datast.Tables(0)
 
        Dim excelTitle As String = "Экспорт в MSExcel"
 
        Dim DGVHeaderText() As String = {"Код", "ФИО", "Должность", "Подразделение", "Область_аттестации", "Дата", "Форма_подготовки", "Вид_надзора"}
 
        ExportToExcel(dataTable, excelTitle, DGVHeaderText)
 
 
 
    End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        'быстрая выгрузка данных из DataGridView в Excel
        Dim xlApp As New Microsoft.Office.Interop.Excel.Application
        Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add
        Dim xlWorksheet As Microsoft.Office.Interop.Excel.Worksheet = xlWorkBook.Worksheets(1) 'CType(xlWorkBook.Worksheets(1), Excel.Worksheet)
        Dim DGVRowsTotal, DGVColsTotal, i, j As Integer
        DGVRowsTotal = DataGridView1.RowCount
        DGVColsTotal = DataGridView1.Columns.Count
        'задаём размерность нашему массиву
        Dim arrData(0 To DGVRowsTotal + 1, 0 To DGVColsTotal + 1) As Object
        'заполняем шапку
        For i = 0 To DGVColsTotal - 1
            arrData(1, i + 1) = DataGridView1.Columns(i).HeaderText
        Next
        'заполняем данные
        For i = 0 To DGVRowsTotal - 1
            For j = 0 To DGVColsTotal - 1
                arrData(i + 2, j + 1) = DataGridView1.Rows(i).Cells(j).Value
            Next j
        Next i
        'выгрузка на лист
        xlWorksheet.Range("A1").Resize(arrData.GetUpperBound(0), arrData.GetUpperBound(1)).Value = arrData
        xlWorksheet.Rows(1).delete() 'удаляем пустую 1-ю строку, т.к. наш массив начитался с 0 индекса
        xlWorksheet.Columns(1).delete() 'удаляем пустой 1-й столбец, т.к. наш массив начитался с 0 индекса
        xlApp.Visible = True
        'MsgBox("Выгрузка завершена!", vbInformation, "Конец")
    End Sub
 
   
    End Sub