If you seek code and don't want to use SQL, Reports name are already in a collection:
Public Sub ShowAllReports()
Dim x As Integer
Dim strAllReports As String
strAllReports = ""
MsgBox "There is " & .Containers("reports").Documents.Count & " report(s) in that database"
For x = 0 To .Containers("reports").Documents.Count - 1
strAllReports = strAllReports & .Containers("reports").Documents(x).Name & vbCrLf
MsgBox strAllReports, vbInformation, "List of all report(s) name(s)"