如何写DELPHI的代码来压缩ACCESS数据库

Question

我想用DELPHI来压缩ACCESS数据库，这个问题很菜，希望各位大哥能帮兄弟一把。肯定给分。
我用D6，ACCESS2000
  多谢多谢

Answer 1

uses comobjprocedure TFMMain.N26Click(Sender: TObject);
var
  dbe:OleVariant;
begin
     dbe:=CreateOleObject('dao.dbengine.36');
     dbe.CompactDatabase('D:\aaa.mb','d:\bb.mdb','',0,';pwd=ccc');
end;//ccc为密码

Answer 2

http://search.csdn.net/Expert/topic/1717/1717708.xml?temp=.1296198