Retrieve the Description property for All the MS Access Reports using VBA Code

Is it possible to loop through all the reports in the current database and retrieve the description for each report.  This is what I have so far:

Private Sub Command0_Click()
Dim obj As AccessObject, dbs As Object
Dim rpt As Report
Dim P As Property
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
    Debug.Print obj.Property & vbCrLf
Next
End Sub


Any help would be appreciated.