Private Function getTableDescription(strSourceFile As String, strTableName As String) As String
    Dim ws As New DAO.DBEngine
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim prop As DAO.Property
    
    Set db = ws.OpenDatabase(strSourceFile)
    Set tbl = db.TableDefs(strTableName)
    Set prop = tbl.Properties("Description")
    getTableDescription = prop.Value
    
    Set ws = Nothing

End Function

Private Sub setTableDescription(strSourceFile As String, strTableName As String, strDescription As String)
    Dim ws As New DAO.DBEngine
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
    Dim prop As DAO.Property
    
    Set db = ws.OpenDatabase(strSourceFile)
    Set tbl = db.TableDefs(strTableName)
    Set prop = tbl.Properties("Description")
    prop.Value = strDescription
    
    Set ws = Nothing
End Sub