I\'m quering the table MsysObjects for making a list of the objects in my database:
SELECT MsysObjects.Name, MsysObjects.Type
FROM MsysObjects
WHERE (((Left$
Type TypeDesc -32768 Form -32766 Macro -32764 Reports -32761 Module -32758 Users -32757 Database Document -32756 Data Access Pages 1 Table - Local Access Tables 2 Access Object - Database 3 Access Object - Containers 4 Table - Linked ODBC Tables 5 Queries 6 Table - Linked Access Tables 8 SubDataSheets
-- http://www.access-programmers.co.uk/forums/showthread.php?t=103811