Select MsysObjects.Name AS ObjectName, MsysObjects.DateUpdate, IIf([type]=1 or [type]=6,"Table","Query") AS ObjectType
FROM  MsysObjects in 'C:\MAS.mdb'
Where (((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=1) AND ((MsysObjects.Flags)=2097152 or (MsysObjects.Flags)=128 or (MsysObjects.Flags)=0 or (MsysObjects.Flags)=16))
orDER BY MsysObjects.Name;