压缩带密码的数据库出错！高手请进！解决即结！急！

[somecom]

'压缩带密码的数据库,取消密码，压缩就成功，加密码就报错
1、connpath="db1.asp"
2、Set Engine = CreateObject("JRO.JetEngine")
3、dbPath=server.MapPath(connpath)
4、strDBPath = left(dbPath,instrrev(dbPath,"\"))
5、Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath, _
6、"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "bak.asp" & "; Jet OLEDB: DataBase password=" & 1234
7、Set Engine = nothing
8、response.write "已成功压缩数据！"
-------------------------------------------------
'可是我的密码明明对的！
Microsoft JET Database Engine 错误 '80040e4d'
密码无效。
/admin_files/zip.asp，行31 (第5行)
--------------------------------------------------
'当第5、6行合并为一行：
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";Jet OLEDB: DataBase password=1234","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "bak.asp" & "; Jet OLEDB: Encrypt Database=True"
-----------------
报错为：
Microsoft JET Database Engine 错误 '80004005'
找不到可安装的 ISAM。
/admin_files/zip.asp，行34 （合并行）
------------------------------------------------
菜鸟谢过各位大侠！

[lqflsh]

6、"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "bak.asp" & "; Jet OLEDB: DataBase password=1234"

[海鸥]

connpath="database/DataShop.mdb"
Set Engine = CreateObject("JRO.JetEngine")
dbPath=server.MapPath(connpath)
strDBPath = left(dbPath,instrrev(dbPath,"\"))
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";Jet Oledb:database password=1234","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "bak1.asp" & ";Jet OLEDB: Encrypt Database=True"
Set Engine = nothing
if err.number=0 then
response.write "已成功压缩数据！"
end if

[somecom]

6、"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "bak.asp" & "; Jet OLEDB: DataBase password=1234"
------------------------------------------
这样写的话，老是报密码错！可我的密码明明是对的呀！