请高手帮忙：使用ADO对ACCESS数据库进行压缩、删除、重命名

[dzh]

我用ADO对ACCESS数据库进行压缩，如下：
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
oldDB = "d:\net\accessTest.mdb"
newDB = "d:\net\accessCompact.mdb"
prov = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
jro.CompactDatabase prov & OldDB, prov & newDB
如果数据库无密码能正常执行，而我的ACCESS数据库有密码，系统会提示密码错误，在以上代码中如何加上密码？
另外压缩完成后我要对原库accessTest.mdb进行删除并把accesscompact.mdb改名为accessTest.mdb，ADO代码如何写?

[coolsky]

prov里添加吧,加上User ID=XXX,password=XXX
删除kill XXX
重命名 Name oldpathname As newpathname