主题：关于动态建立表的问题

老大，我想在项目中建一张表，用于动态创建表，有：表名、列名、列类型 等列，然后在增加表的代码中

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") '创建表
With tbl
    .AddColumn("日期" ,ADOXType.DateTime)
    .AddColumn("产品" ,ADOXType.String, 12)
    .AddColumn("客户" ,ADOXType.String, 20)
    .AddColumn("数量" ,ADOXType.Integer)
    .AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) '增加表
Builder.Close()

将ADOXType.DateTime用“列类型”中的值代替，这时候“列类型”列的数据类型应该如何设置，或者这样的代码应该如何来写，

比如：

With tbl
    .AddColumn(列名 ,列类型)
 End With

肯请老大指点