救急！！！

procedure TFormMain.SBackupClick(Sender: TObject);
var
  dbe:olevariant;
begin  DM.ADOC.Connected := False;
  tempstring := FormatDateTime('yyyymmdd',Date)+FormatDateTime('hhmm',Time)+'.dat';
  dbe := CreateOleObject('dao.DBEngine.36');  //or 'dao.DBEngine.35'
  dbe.CompactDatabase('.\db\QiQuanDB.mdb','.\backup\'+tempstring,'',0,'');  Showmessage('数据库备份完成,文件名为 '+tempstring);
  WriteLog('数据库备份完成,文件名为'+tempstring);
end;