怎样将有密码的ACCESS数据库压缩－－－救命

[kbklisu]

代码如下，在没有密码的情况下能完成，但在access里面设置了密码就不行了
var DaoVar: OLEVariant;

if ADOConnection.Connected then
ADOConnection.Connected :=false;

DaoVar:=CreateOleObject('DAO.DBEngine.36');
if FileExists(sPath+'ClientDataNew.mdb') then
deletefile(sPath+'ClientDataNew.mdb'); //删除文件
DaoVar.CompactDatabase(sPath+'ClientData.mdb',sPath+'ClientDataNew.mdb');//压缩"misdb.mdb" 到 "misdbnew.mdb"
if deletefile(sPath+'ClientData.mdb') then //删除文件"misdb.mdb"
RenameFile(sPath+'ClientDataNew.mdb',sPath+'ClientData.mdb'); //将"misdbnew.mdb"改名为"misdb.mdb"
if FileExists(sPath+'ClientDataNew.mdb') then
deletefile(sPath+'ClientDataNew.mdb'); //删除文件