Public Sub gsbListFileNameDesc(strTableName As String)

    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim strDesc As String
    
    Set dbs = CurrentDb()
    Set tdf = dbs.TableDefs(strTableName)
    
    For Each fld In tdf.Fields
        Debug.Print fld.Name & vbTab & fnGetDescription(fld)
    Next
    
End Sub



Private Function fnGetDescription(fld As DAO.Field) As String

On Error GoTo HError

    fnGetDescription = Nz(fld.Properties("Description"), "")
    
    Exit Function

HError:
    fnGetDescription = ""
    
End Function