主题：建外部表时碰到的麻烦，请高手赐教！

下面的并不是表达式来的，所以不能用eval来计算：

.AddColumn("zlh",ADOXType.String,16)

大概的思路：

Dim Builder As New ADOXBuilder("cs") '要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("table2") '创建表
With tbl
    For Each dr As DataRow In DataTables("tabledatatype").DataRows
        Select Case dr("ADOXType")
            Case "date"
                .AddColumn(dr("name"),ADOXType.DateTime)
            Case "boolean"
                .AddColumn(dr("name"),ADOXType.Boolean)
            Case String
                .AddColumn(dr("Name"),ADOXType.String,dr("length"))
        End Select
    Next
End With
Builder.AddTable(tbl, True, True) '增加表
Builder.Close()