ASP操作Access，ADOX类的使用

Dim sqlstr
sqlstr="alter table l_info add column info_file varchar(200)default NULL" 
conn.execute(sqlstr)

Sub AddHelpColumn()
    Dim oConn, oCat, oColumn
    ' 打开数据库
    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open MM_conn_STRING
    ' 打开表
    Set oCat = Server.CreateObject("ADOX.Catalog")
    Set oCat.ActiveConnection = oConn
    ' 创建列
    Set oColumn = Server.CreateObject("ADOX.Column")
    With oColumn
         Set .ParentCatalog = oCat ' Must set before setting properties
         .Name = "memHelp"
         .Type = adLongVarWChar
         .Properties("Nullable") = True
         .Properties("Jet OLEDB:Allow Zero Length") = True
    End With
    oCat.Tables("MetaExternalFields").Columns.Append oColumn
    ' 完成

    Set oColumn = Nothing
    Set oCat = Nothing
    oConn.Close()
    Set oConn = Nothing
End Sub

  其中的集合Column的成员有：

Item property
Count property. 
Delete method. 
Refresh method.