From Evernote:

[ACCESS]ACCESSﾌｧｲﾙ内のクエリ、クエリ内容一覧をﾃｷｽﾄファイルで吐き出す。

ACCESSﾌｧｲﾙ内のクエリ、クエリ内容一覧をﾃｷｽﾄファイルで吐き出します。

（９７以降対応）

'--------------------------------------------------------------------------------
Private Sub CommandButton1_Click()

    Dim motoName As String
    motoName = "クエリ" & Format(Today, "ddhhss")
  
    Dim strMdbName As String
    strMdbName = CurrentDb.Name
  
    SaveModules strMdbName, "", "C:\******.txt"

End Sub


Public Sub SaveModules(strMdbName As String, strPw As String, strExpFile As String)
    Dim dbs As DAO.Database
    Dim objAcc As Access.Application
    Dim mdl As Module
    Dim docWork As DAO.Document
    Dim frm As Form
    Dim rpt As Report

    On Error Resume Next

   
    Open strExpFile For Output As #100
    Print #100, "■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
    Print #100, "■     MDB Name : " & strMdbName
    Print #100, "■    CreateDay : " & Now
    Print #100, "■"
    Print #100, "■    Copyright (c) 1997-20xx 7key All Rights Reserved."
    Print #100, "■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
    Print #100, ""
    Print #100, ""
  
    Print #100, "■■■  ｸｴﾘｰ   ■■■■■■■■■■■■■■■■■■■■■■■■■■"
    Print #100, ""
    Print #100, ""
  
    Set dbs = DBEngine.Workspaces(0).OpenDatabase(strMdbName, False, False, ";PWD=" & strPw)
    Set objAcc = GetObject(strMdbName)
  
    For Each qd In dbs.QueryDefs
  
    If Not Left(qd.Name, 1) = "~" Then
        Print #100, "□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□"
        Print #100, "□        Name : " & qd.Name
        Print #100, "□     Created : " & qd.DateCreated
        Print #100, "□    Modified : " & qd.LastUpdated
        Print #100, "□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□"
        Print #100, ""
        Print #100, qd.SQL
    End If
  
    Next
  
  
    Close #100
    dbs.Close
    Set dbs = Nothing
    'objAcc.CloseCurrentDatabase
    'Set objAcc = Nothing

End Sub