主题：动态更新表结构 提示 从字符串“ADOXType.string”到类型“Integer”的转换无效

Dim Builder As New ADOXBuilder("委") '要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable(e.form.controls("表名").text) '创建表

Dim 表名 As WinForm.TextBox = e.Form.Controls("表名")
Dim 类型 As WinForm.TextBox = e.Form.Controls("类型")
Dim 列名 As WinForm.TextBox = e.Form.Controls("列名")
Dim 长度 As WinForm.TextBox = e.Form.Controls("长度")

With tbl
    If 类型.text.Contains("String") Or 类型.text.Contains("DateTime") Or 类型.text.Contains("Integer") Or 类型.text.Contains("text") Then
        .AddColumn(列名.text ,"ADOXType." & 类型.text, 长度.value)
    Else
        .AddColumn(列名.text ,"ADOXType." & 类型.text)
    End If
End With
Builder.AddTable(tbl) '增加表
Builder.Close()