Как создать таблицу в Access из Excel

Sub transferRecordset()

   'Create a Recordset from all the records in the Orders table.
   Dim sNWind As String
   Dim conn As New ADODB.Connection
   Dim rs As ADODB.Recordset

   sNWind = "C:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb"
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sNWind & ";"
   conn.CursorLocation = adUseClient
   Set rs = conn.Execute("Orders", , adCmdTable)
      
   'Create a new workbook in 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)
      
   'Transfer the data to Excel.
   xlSheet.Range("A1").CopyFromRecordset rs
      
   'Save the workbook and quit Excel.
   xlBook.SaveAs "c:\My Documents\ADOExample.xls"
   xlApp.Quit
      
   'Close the connection.
   rs.Close
   conn.Close
   
End Sub