如何用程序控制MDB数据库的压缩？(100分)

一个Access的MDB数据库在操作久了后会变得很大，可以通过Access来将其进行压缩处理，
请问有没有办法通过程序控制呢？

1、Ado压缩
procedure TForm1.Button2Click(Sender: TObject);
var
Dest_DB_Connection: OleVariant;
l_Source_Con_Str, l_Dest_Con_Str: string;
begin
try
Dest_DB_Connection := CreateOleObject('JRO.JetEngine');
except
Exit;
end;

l_Source_Con_Str := 'Data Source=C:/1.mdb;';

l_Dest_Con_Str := 'Data Source=C:/2.mdb;';

try
OleCheck(Dest_DB_Connection.CompactDatabase(l_Source_Con_Str, l_Dest_Con_Str));
except
end;
end;

2、DAO压缩
var dao:OLEVariant;
begin
Adoconnection.Close
screen.Cursor:=crHourGlass;
dao:=CreateOleObject('DAO.DBEngine.36');
dao.CompactDatabase(DBName,tempdaname);
DeleteFile(DBName);
RenameFile(tempdbname,DBName);
screen.Cursor:=crDefault;
dao:=NUll;
Adoconnection.Open;
end;

老贴里有的是，查查吧，老赵：）

自己搜吧，以前有见过东莞的一富翁发过
好象说和哪个函数同

晚了点，不好意思。