壓縮加密的Access2000資料庫問題(編號：2419)

我在VB程式中使用壓縮加密的Access2000資料庫,出現一些問題可否麻煩指教一下!謝謝!!
壓縮未加密的Access2000資料庫使用下列指令沒問題
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb;Jet OLEDB:Engine Type=5"

但壓縮加密的Access2000資料庫使用下列指令卻有錯誤訊息
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Password=vinca;Data Source=C:\temp\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb;Jet OLEDB:Engine Type=5"　

使用下列指令有錯誤訊息
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Database Password=vinca;Data Source=C:\temp\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb;Jet OLEDB:Engine Type=5"　　

可否幫我找出我的問題出在哪? 謝謝!!!拜託拜託!!