主题：[求助]用代码，能一次批量给多表增加相同的列吗？

 如果在设置了好多表后，发现各个表还想再添加一个相同的列，如果手动去加，那太麻烦了，用代码，能一次批量给多表增加相同的列？

求教论坛的前辈

用如下代码，能实现吗？我做了个近钮，但一次也只能对一张表添加，不能批量添加：

For Each tbl As Table In Tables
        Dim Builder As New ADOXBuilder
        Builder.Open() 
        
        If tbl.Cols.contains(Colname)=False Then
                 If Ary(1)="0" Then
                With Builder.Tables(tbl.name)
                    .AddColumn(Colname,Ary(1),Collength)
                End With
               
            Else
                Builder.Tables(tbl.name).AddColumn(Colname,Ary(1))
               
            End If
            Builder.Close()

next

请问如何修改？

可以实现了。原来

Dim Builder As New ADOXBuilder
Builder.Open()   要放循环体外。