Dim conX As ADODB.Connection
Set conX = New ADODB.Connection
conX.Open "DSN=Excel Files;DBQ=C:\My Documents\Book1.xls;" _
& "DefaultDir=C:\My Documents;DriverId=22;" _
& "MaxBufferSize=2048;PageTimeout=5;"
conX.Execute "SELECT Field1, Field2, Field3 INTO MyTable " _
& "IN 'C:\My Documents\db1.mdb' FROM [Sheet1$]"
conX.Close
Set conX = Nothing