使用DAO的CompactDatabase,当ACCESS数据库加有密码时应该怎样写?

procedure TF_main.N_COMPRESSClick(Sender: TObject);
var ole_tmp:olevariant;
 src_file,des_file,app_path:string;
begin
  engine:=codbengine.create;   dtmd1.Database1.Connected :=false;
   app_path:=copy(application.exename,1,length(application.exename)-16);
   if copy(app_path,length(app_path),1)='\' then
      app_path := copy(app_path,1,
                  length(app_path)-1);
      src_file:=app_path+'\data\ENGINER.mdb';
      des_file:=app_path+'\data\!~tmp.mdb';
      engine.CompactDatabase(src_file,des_file,ole_tmp,ole_tmp,';pwd=*&^rfv');      deletefile(src_file);
      renamefile(des_file,src_file);      messagedlg('数据压缩完毕！',mtinformation,[mbok],0);
       dtmd1.Database1.Connected :=true;
       dtmd1.Tbl_system.Open;
      // engine._Release ;
  
end;