主题：[注意] 动态创建表和列： 类型和序数不一致！

Dim Builder As New ADOXBuilder  ' ("access数据源")
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单1") '创建表
With tbl
    .AddColumn("数量" ,4)      '内部表是整数型,    (数据源access中是长整数型)
    .AddColumn("数量2" ,6)    '内部表是短整数型, (数据源access中是整数型)
    .AddColumn("数量3" ,7)    '内部表是微整数,    (数据源access中是字节型)  微整数和字节型是一致的吧？

End With
Builder.AddTable(tbl) '增加表
Builder.Close()