Вы должны открыть отчет, чтобы получить доступ к этим типам свойств.
Открыть в режиме разработки, чтобы вы на самом деле не запускали.
Dim QueryName As String
DoCmd.OpenReport MyReportName, acViewDesign
QueryName = Reports(MyReportName).RecordSource
DoCmd.Close acReport, MyReportName