VB代码创建的ACCESS数据库时，怎么设置某个字段不为必填字段，可以为空字符串。

Question

我的代码如下：
Sub CreateLocalDatabase(Dbname As String)
'创建本地数据库
Dim cat As New ADOX.Catalog
Dim Connstr As String
Dim tbl As New ADOX.Table
Dim LocalCon As New ADODB.Connectioncat.Create "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & Dbname & "'"
Set cat = Nothing
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & Dbname & "'"tbl.Name = "Product"
tbl.Columns.Append "Cservice", adVarWChar, 100
tbl.Columns.Append "Meter", adVarWChar, 50
tbl.Columns.Append "Mphon", adVarWChar, 50
tbl.Columns.Append "Madre", adVarWChar, 100
tbl.Columns.Append "Mplace", adVarWChar, 100
tbl.Columns.Append "Mperson", adVarWChar, 50
tbl.Columns.Append "Mauthorizor", adVarWChar, 50
cat.Tables.Append tbl
Set tbl = Nothing
Set cat = NothingDim strAlterPassword As String
strAlterPassword = "ALTER DATABASE PASSWORD [pwd] NULL;"
LocalCon.Mode = adModeShareExclusive
LocalCon.Open "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='" & Dbname & "'"
LocalCon.Execute strAlterPassword
LocalCon.CloseEnd Sub
上面的代码创建的ACCESS数据库，字段的属性都为：必填字段：是，允许空字符串：是。
我想改为字段的属性为：必填字段：否，允许空字符串：是。怎么改，辛苦大家了。

Answer 1

解决了 也帮UP下下 无聊人士