SELECT MSysObjects.Name, IIf(MSysObjects!Database<>"",MSysObjects!Database,CurrentDB.Name) AS Location
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like "MSys*" And (MSysObjects.Name)<>"tblRestrictedText") AND ((MSysObjects.Type)=1)) OR (((MSysObjects.Name) Not Like "MSys*" And (MSysObjects.Name)<>"tblRestrictedText") AND ((MSysObjects.Type)=6))
ORDER BY MSysObjects.Name;