>627 maiさん
DAOは出来ますか？
コンテナオブジェクトを使って、クエリ名をDAOでテーブルに
書き出せばできますよ。

そのテーブルをリストボックス等に使えばいいです。

Containerオブジェクトのサンプル
--------------------------------------
'テーブル、クエリ名を順番にメッセージボックス表示します。

Dim Db As Database, ContMy As Container
Dim MyDoc As Document, strName As String

Set Db = CurrentDb()
Set ContMy = Db.Containers("Tables")

For Each MyDoc In ContMy.Documents

　strName = MyDoc.Container　'オブジェクトタイプ
　strName = strName & " " & MyDoc.Name 'オブジェクト名

　If MyDoc.Name Like "*MSys*" Then
　Else
　　MsgBox strName
　End If

Next MyDoc

Set ContMy = Nothing
Set Db = Nothing
-------------------------------------
※テストする場合は、スペースが入ってるので消してください。