XL2000: How to Use Data Access Objects to Join Tables of Different Formats

Sub JoinTables()
Dim db As database
Dim rs As recordset
Dim OrdersTable As tabledef, EmpTable As tabledef
   'Create a temporary Jet database called Temp.MDB
   Set db = createdatabase("C:\My Documents\Temp.mdb", dbLangGeneral)
   'Attach the Excel table "Orders" from the file Orders.xls to the
   'database
   Set OrdersTable = db.CreateTableDef("Orders")
   OrdersTable.Connect = "Excel 5.0;DATABASE=C:\My Documents\ORDERS.XLS"
   OrdersTable.SourceTableName = "Orders"
   db.TableDefs.Append OrdersTable
   'Attach the dBASE IV table "Employee" to the database
   '** Note: You may need to change the path to the sample dBASE
   '   files for your installation of Excel.
   Set EmpTable = db.CreateTableDef("Employee")
   EmpTable.Connect = _
         "dBASE IV;DATABASE=C:\Program Files\Microsoft Office\Office"
   EmpTable.SourceTableName = "Employee"
   db.TableDefs.Append EmpTable
   'Create the recordset -- Return the Order_ID from the Orders
   'table and
   'The First_name and Last_Name from the Employee table where the
   'Employ_ID in the Employee table matches the Employ_ID in the Orders
   'table
   Set rs = db.OpenRecordset("SELECT orders.ORDER_ID, " & _
      "employee.FIRST_NAME, employee.LAST_NAME FROM employee, orders " & _
      "WHERE employee.EMPLOY_ID = orders.EMPLOY_ID", dbOpenDynaset)
   'Copy the recordset to Sheet1!A1
   Sheets("Sheet1").Range("A1").CopyFromRecordset rs
   'Close the database and delete the database file Temp.mdb
   db.Close
   Kill "c:\my documents\temp.mdb"
End Sub