'各种对象SQL语句：

'本地表+Access链接表：Select Name FROM MSysObjects Where (Flags=0) AND (Type=1) or (Type = 6)
'本地表+Access链接表 +SQL 链接表：Select Name FROM MSysObjects Where (Flags=1048576) or (Flags=0)

AND (Type=1) or (Type=4) or (Type=6) orDER BY MSysObjects.Name;

'本地表：Select Name FROM MSysObjects Where (Flags=0) AND (Type=1)

'Access链接表：Select Name FROM MSysObjects Where ((([Type])=6));

'Access链接表+SQL Server链接表：Select Name FROM MSysObjects Where (((Name) Not Like "~TMP*") AND ((Type)=4)) or (((Type)=6));

'查询：Select Name FROM MSysObjects Where (Flags=0) and (Type = 5)
'窗体：Select Name FROM MSysObjects Where flags=0 and type =-32768
'模块：Select Name FROM MSysObjects Where flags=0 and type =-32761
'报表：Select Name FROM MSysObjects Where (Flags=0) AND (Type=-32764);
'宏：Select Name FROM MSysObjects Where flags=0 and type =-32766

阅读原文：//www.accessoft.com/article-show.asp?id=20088