？如何在ACCESS2000里创建有字符型（允许为空字符）字段的新表！

Question

这是个 ADOX 的例子， 你试试，看能不能 满足你的要求。
其中的 关键是 用了 adEmpty 常数。（见程序注释)
======================================================
Sub CreateTable()   Dim tbl As New Table
   Dim cat As New ADOX.Catalog   cat.ActiveConnection = _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"   tbl.Name = "MyTable"
   tbl.Columns.Append "Column1", adEmtpy '定义为 空值
   tbl.Columns.Append "Column2", adVarWChar, 50
   cat.Tables.Append tbl
End Sub

Answer 1

程序在执行到
tbl.columnes.append "Column1", adEmtpy 时出现错误，提示如下：
实时错误3001
变量类型不正确，或者在不可接受的范围内，或者与其他数据相冲突

Answer 2

没法子了.用 代码 无法 设定 为 '允许空字符串'
用 SQL 语句也不行. 只能 用 access 了:(