Dim Builder As New
ADOXBuilder Builder.Open() '打开ADOXBuilder With
Builder.Tables("表A")
.AddColumn("日期" ,ADOXType.DateTime) '增加日期型列 .AddColumn("产品"
,ADOXType.String,
12) '增加字符型列,长度指定为12
.AddColumn("客户" ,ADOXType.String,
20) '增加字符列,长度为20
.AddColumn("数量" ,ADOXType.Integer)
'增加整数型列 .AddColumn("备注" ,ADOXType.Text) '增加备注列 End
With Builder.Close()