SELECT [Name] 

FROM MsysObjects 

WHERE (Left$([Name],1)<>"~") 
And 
([MSysObjects].[Type])=-32764 

ORDER BY [MSysObjects].[Name]