急人的难题！Access数据库的实时优化、修复问题 up有分！！！ (100分)

up

Access的数据库必须关闭才能压缩，这个代码可以：
设此数据库的密码是 idlehagar

use JRO_TLB;
procedure CompactMdb;
const sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var oJetEng: JetEngine;
　sOldMdb, sNewMdb: string;
begin
　sOldMdb := sProvider + 'Data Source=' + 'C:/Database/Test.mdb;'
　　+ 'Jet OLEDBatabase Password=idlehagar';
　sNewMdb := sProvider + 'Data Source=' + 'C:/Test.mdb;'
　　+ 'Jet OLEDBatabase Password=idlehagar';
　try
　　try
　　　oJetEng := CoJetEngine.Create;
　　　oJetEng.CompactDatabase(sOldMdb, sNewMdb);
　　　if FileExists('C:/Test.mdb') then begin
　　　　CopyFile('C:/Test.mdb', 'C:/Database/Test.mdb', False);
　　　　DeleteFile('C:/Test.mdb');
　　end;
　　except
　　　on E: Exception do
　　　　showmessage('Compact database failed');
　　end
　finally
　　oJetEng := nil;
　end;
end;

文个比较简单的问题，前面几位大侠提到的dao是什么？再delphi里怎么使用dao来连接access数据库呢？

[h1][/h1]