Here's a way to collect the text information for all queries into a text
file (this must be executed from a MDB file):
Public Sub WriteQueries()

Dim intFile As Integer
Dim db As DAO.Database
Dim qdfs As DAO.QueryDefs
Dim qdf As DAO.QueryDef

intFile = FreeFile
Open CurrentProject.Path & "\queries.text" For Output As intFile
Set db = CurrentDb
Set qdfs = db.QueryDefs

For Each qdf In qdfs
   Print #intFile, qdf.Name
   Print #intFile, qdf.SQL
Next qdf

Close intFile
End Sub