怎样列出Access所有的表名?

在SQL   Server中可以用语句如下得到  
  >SELECT   name   
  >FROM   sysobjects  
  >WHERE   (type   =   'u')   AND   (name   <>   'dtproperties')  
  在Access中呢？？？？？？？？？？  
  用Delphi代码也可以

 

 

===========

SELECT   MSysObjects.Name,   MSysObjects.Type  
  FROM   MSysObjects  
  WHERE   (((MSysObjects.Name)   Not   Like   "msys*")   AND   ((MSysObjects.Type)=1));  
============

ADOConnection.Close   ;  
  ADOConnection.ConnectionString   :=   'Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=Test.mdb;Persist   Security   Info=False';  
  tableList   :=   TStringList.Create   ;  
  ADOConnection.Open();  
  ADOConnection.GetTableNames(   tableList   );