[求助]为什么总是提示"运行错误424",要求对象

ya000011

我想把一个工作表中OLDM的A1到AC12范围导入到数据库DB.MDB下面的OLDCM表中,下面代码运行后,总是提示 

运行错误424,要求对象

Sub TEST()
A = ThisWorkbook.Path
B = ThisWorkbook.Name
C = A & "\" & B
D = "oldcm"
E = "OLDM!A1: AC12"
MsgBox C

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\db.MDB;" & _
   "Jet OLEDB:Engine Type=4"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, D, C, True, E

End Sub

是什么原因啊

ya000011

咋没人回啊，老师们那里去了啊？给诊断一下吧，谢谢嗷！