外部表要指定数据源的:
Dim Builder As New ADOXBuilder("s")Builder.Open() '打开ADOXBuilderWith Builder.Tables("数据表") .AddColumn("合计",ADOXType.Integer) '增加整数型列End WithBuilder.Close() '关闭ADOXBuilder