Put the next string as the RowSource of your ComboBox
SELECT MSysObjects.Name, MSysObjects.Flags, MSysObjects.Type
WHERE (((MSysObjects.Flags)<>-2147483648 And
(MSysObjects.Flags)<>2 And (MSysObjects.Flags)<>-2147483645) AND
((MSysObjects.Type) In (5)))
ORDER BY MSysObjects.Name;
As I don't really inderstand the code, well not at all actually, I take it that one part of the SQL statement is referring only to queries, but which part. The reason I ask is that I want to do the same with reports and certain forms.