Query to get the object information a database in Microsoft Access

SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE MSysObjects.Name Not Like "MsyS*" AND MSysObjects.Type=1
ORDER BY MSysObjects.Name;

Where type can be changed as per object type.

MSysObjects.Type=1

Like Type is:
1 for Tables
5 for Queries
-32766 for Mocros
-32756 for DAP
-32761 for Modules