d6中如何使用CreateOleObject这个函数？应该包含哪个头文件？(10分)

我想在程序中压缩Access数据库，HubDog的《Delphi 之葵花宝典》中看到下面这片代码

var
dao: OLEVariant;
begin
dao := CreateOleObject('DAO.DBEngine.35');
dao.CompactDatabase('d:/yourDatabaseName.mdb',
'd:/yourNewCompactedDatabaseName.mdb');
end;

编译时却通不过，停留在CreateOleObject这一行上，是不是要想这个函数还得包含某个头文件

comobj

接受答案了.

以后遇到这种情况，把光标放到 CreateOleObject 上，按 F1，
出现 Help，里面就会告诉你 Unit 是什么。