向ACCESS数据库里添加一列，如何设置它的必填字段为否呢？？？？

Question

下面的代码是小马哥的答案。见帖：http://expert.csdn.net/Expert/topic/2687/2687559.xml?temp=.7223017'引用Microsoft ADO Ext 2.5 for DDL and Security
   Dim cat As New ADOX.Catalog
   Dim myDb As ADOX.Table   cat.ActiveConnection = _
      "provider=microsoft.jet.oledb.4.0;data source=e:\test1.mdb"
   '添加一个字符类型长度为50的字段strtepm
    cat.Tables("test").Columns.Append "strtepm", adVarWChar, 50
    Set myDb = cat.Tables("test")
    '设置列的必填属性为“否”
    myDb.Columns("strtepm").Attributes = adColNullable
    '设置列的允许空字符串为“是”
    myDb.Columns("strtepm").Properties("Jet OLEDB:Allow Zero Length") = True
    Set myDb = Nothing

Answer 1

看看这个：
http://www.gab2001uk.com/visualbasic/daovsado/adocreatedatabase.htm