Read Table Description

[NJLDoc]

In access you can save text with each table by right clicking the table and entering a description. How do you programmatically read the description from visual basic?

 

[NJLDoc]

Just to add to my inquiry, the following code works well within an access database module directly but I cannot get it to work from VB even in DAO though would prefer using ADO or ADOX.

Function sTableDescription()
On Error Resume Next 'Required as will error if no description found
Dim tbl As DAO.TableDef
Dim s As String
For Each tbl In CurrentDb.TableDefs
s = tbl.Properties("Description")
If Not s = vbNullString Then MsgBox tbl.Name & " description: " & s
Next tbl
End Function