Try this:
Code:
Function Try_Showing_ObjectDescriptions()
    ' Needs reference to Microsoft DAO 3.51 Object Library

    ' For tables instead of queries, change QueryDef/QueryDefs to TableDef/TableDefs
    Dim DB As DAO.Database
    Dim obj As DAO.QueryDef
    Dim ObjDesc As String
    Dim ObjName As String

    ' Find the specified object in the current database
    Set DB = CurrentDb
    For Each obj In DB.QueryDefs
        On Error Resume Next
        ObjName = obj.Name
        ObjDesc = ""        ' Reset to empty in case error below
        ObjDesc = obj.Properties("Description")

        Debug.Print "Obj name=" & ObjName & " Desc=" & ObjDesc
    Next obj

    Set DB = Nothing
End Function