Access中字段的说明

  <%@   Language=VBScript   %>  
  <%  
  '利用ADOX取得Access中字段的说明   ---------------  
  Function   OpenConnectionWithString(strMDBPath,   strTableName,   strColName)   
   
Dim   cat    
Set   cat   =   server.CreateObject("ADOX.Catalog")  
cat.ActiveConnection   =   "Provider=Microsoft.Jet.OLEDB.4.0;   Data   Source="   &   strMDBPath  
OpenConnectionWithString   =   cat.Tables(strTableName).Columns(strColName).Properties("Description").Value   
   
Set   cat   =   Nothing  
  End   Function   
  response.Write   OpenConnectionWithString(server.MapPath("./数据库名称.mdb"),   "表名称",   "目标字段名称")  
  %>