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