Sub transferRecordset()

   'Создание  Recordset из таблицы ЗАКАЗЫ
   Dim sNWind As String
   Dim conn As New ADODB.Connection
   Dim rs As ADODB.Recordset

   sNWind = "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sNWind & ";"
   conn.CursorLocation = adUseClient
   Set rs = conn.Execute("ЗАКАЗЫ", , adCmdTable)
      
   'Создание книги в Excel
   Dim xlApp As Object
   Dim xlBook As Object
   Dim xlSheet As Object
   
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Add
   Set xlSheet = xlBook.Worksheets(1)
      
   'Передача данных в Excel
   xlSheet.Range("A1").CopyFromRecordset rs
      
   'Сохранить книгу и выйти из Excel
   xlBook.SaveAs "c:\My Documents\ADOExample.xls"
   xlApp.Quit
      
   'Закрыть соединение
   rs.Close
   conn.Close
   
End Sub