如何遍历表和查询？

todaynew

想通过遍历的方式获取Access中的表名称和查询名称的一个字符串用于一个组合框的值来源。不知道该如何写代码希望得到指点，谢谢。

aslxt

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=1)) OR (((MSysObjects.Type)=6));