EXCEL向ACCESS上传数据的问题

excelhome9819

EXCEL向ACCESS上传数据的问题
我的EXCEL是2003，安装ACCESS数据库2003，希望从，可是执行的时候，cnn.Execute SQL不能运行，请问是怎么回事情？谢谢。
EXCEL表和ACCESS库都放在同一个目录中。这里我直接发代码。看代码里面有什么问题没有？谢谢。
Sub 向ACCESS上传数据()
    Dim tt
    tt = Timer
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\元件库.mdb"
    SQL = "insert into 元件库 select * from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "]"
    cnn.Execute SQL
    MsgBox "数据已经添加到数据库！"
    cnn.Close
    Set cnn = Nothing
End Sub

excelhome9819

请多指教 谢谢