Use the Reports Container.

'*********** Code start ***********
Sub sEnumRpts()
Dim db As Database, ctr As Container
Dim doc As Document, rpt As Report
    Set db = CurrentDb
    Set ctr = db.Containers!Reports
    For Each doc In ctr.Documents
        With doc
            DoCmd.OpenReport .Name, acViewDesign
            Set rpt = Reports(.Name)
            Debug.Print rpt.RecordSource
            DoCmd.Close acReport, .Name, acSaveNo
        End With
    Next
    Set rpt = Nothing
    Set doc = Nothing
    Set ctr = Nothing
    Set db = Nothing
End Sub
'********** Code End *************

HTH
--
Dev Ashish (Just my $.001)
---------------
The Access Web ( http://home.att.net/~dashish )
---------------

:How do I loop through all the reports in an application an access their
:'record source'?
:
:

Sub ListReportsRecordsource()
Dim doc As Document
Dim db As Database
Dim strName As String

    Set db = CurrentDb()

    For Each doc In db.Containers("reports").Documents
        strName = doc.Properties!Name
        DoCmd.OpenReport strName, acViewDesign
        Debug.Print "Report: " & strName & " Recordsource: " &
Reports(strName).RecordSource
        DoCmd.Close acReport, strName, acSaveNo
    Next doc

End Sub