哪里有支持压缩ACCESS2000数据库的DAO2000下载？(100分)

哪里有支持压缩ACCESS2000数据库的DAO2000下载？我用的是Delphi 5里面只有DAO97

你可以到Microsoft网站去下载一个DAO 3.6版本,下面是一个连接
http://www.vb-code.net/vb_question.asp
我用的是OfficeXP,用以下语句压缩没有问题:
uses comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
dao: OLEVariant;
begin
dao := CreateOleObject('DAO.DBEngine.36');
dao.CompactDatabase('要压缩的access文件',
'压缩后的access文件');
end;

密码在哪输入？