如何样用DAO 判断ACCESS中表是否存在

怎么样用DAO 判断ACCESS中表是否存在?
不用错误处理和ADO方法?可以用DAO实现吗?

[解决办法]
var
ms:TStringList;
begin
ms:=TStringList.Create;
ADOConnection1.GetTableNames(ms);
if ms.IndexOf('表名')<0 then ShowMessage('不存在') else
ShowMessage('存在');
ms.Free;
[解决办法]
曾经在网络上有看到VB写的用DAO取ACCESS表结构，你先搜一下看看。。
[解决办法]
function Findtable(TableName:string):boolean;
var
namestrings:TstringList;
r:boolean;
begin
r:=false;
nameStrings:=TstringList.Create;
try
attdm.Database1.Session.GetTableNames('数据库名字[databasename]','',false,false,namestrings);
if namestrings.IndexOf(TableName)<>-1 then
r:=true
else
r:=false;
finally
namestrings.Free;
result:=r;
end;
end;