用TransferDatabase导出Access表时，如果避免出现安全提示框？ ( 积分: 50 )

我用以下代码进行Access表的导出：
uses Comobj;
procedure Tform1.Click(Sender: TObject);
Var new_mdb:OleVariant;
begin
try
new_mdb:= CreateOleObject('Access.Application');
new_mdb.NewCurrentDatabase('c:/new.mdb');
new_mdb.Application.DoCmd.TransferDatabase($00000000,'Microsoft Access','c:/old.mdb',0,'源表名','目的表名',false{true为只复制表结构});
finally
new_mdb.Quit;
new_mdb:= null;
end;
end;

这个代码可以正确执行。但有一点麻烦：在Access2003下，执行以上代码时会出现Access的安全警告：是否打开该文件？我不想让它出现，而是直接打开该文件，如何办？

这个问题很难吗？