获取字段说明:

CurrentDb.TableDefs("表名称").Fields("字段名").Properties("Description")

设置字段说明:

CurrentDb.TableDefs("表名称").Fields("字段名").Properties("Description")="说明文字"