增加列
在命令窗口执行下面的代码:
Dim Builder As New ADOXBuilder("wdsj")Builder.Open() '打开ADOXBuilderWith Builder.Tables("表A") .AddColumn("张三" ,ADOXType.String,1)End WithBuilder.Close() '关闭ADOXBuilder