Dim rsd As ADODB.Recordset
Dim sSql as String = "Select * from tbl"
Set rsd = CurrentProject.Connection.Execute(sSql, dbOpenSnapshot)
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Range("A2").CopyFromRecordset rsd

With xlSheet
            For iCol = 0 To dt.Columns.Count - 1
                .Cells(1, iCol + 1) = dt.Columns(iCol).ColumnName.ToString()
            Next
            For iRow = 0 To dt.Rows.Count - 1
                For iCol = 0 To dt.Columns.Count - 1
                    .Cells(iRow + 2, iCol + 1) = dt.Rows(iRow).Item(iCol).ToString
                Next iCol
                xlApp.StatusBar = "Перенос данных в таблицу. Выполнено " & " -  " & (Int(100 / (dt.Rows.Count + 1) * iRow * 10)) / 10 & " %"
            Next iRow
            xlApp.StatusBar = "Готово"
End With

Microsoft.Office.Interop.Excel.Range

Dim excelcells as Microsoft.Office.Interop.Excel.Range  = _
CType(ws.get_Range(ws.Cells(1, 1), ws.Cells(size_y,size_x)),Microsoft.Office.Interop.Excel.Range)