透视表连接外部数据源（另一个excel文件）出错，急。。

corpse

我写了一个sub 作用的打开一个dbwk指向的文件，然后再在piwk指向的文件中建立透视表 中间连接了dbwk指向的excel文件

可是老提示出错 就在标红色字体的地方

        piwk.Sheets.Add after:=piwk.Sheets(piwk.Sheets.Count)
        piwk.Sheets(piwk.Sheets.Count).Name = dbwk.Sheets(dbcount).Name
        piwk.Connections.Add "database", "", Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=D:\mp\bom cost\database.xls;Mode=Share Deny Write;Ext" _
        , _
        "ended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Eng" _
        , _
        "ine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB" _
        , _
        ":New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on" _
        , _
        " Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False" _
        ), Array("Sheet2$"), 3
        piwk.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _
        piwk.Connections("database"), Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="D:\mp\bom cost]t1.xls" & j & "!R1C4", TableName:="数据透视表1", _
        DefaultVersion:=xlPivotTableVersion12

corpse

怎么没有人回答我呢？