主题：批量重命名表内所有列

表A中有很多列，其中一部分列的名字都含有"一月"这个字符，我想批量把列名字含有“一月”的所有列改名为"三月"，请问如何编写代码实现？

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder.Tables("表c")
    For Each dc As DataCol In DataTables("表C").datacols
        If dc.name.Contains("第") Then
            .RenameColumn(dc.name,dc.name.replace("第","a"))
        End If
    Next
End With
Builder.Close()
DataTables.unload("表C")
DataTables.load("表C")

谢谢老师，还没看到这儿，正在使用中有了这个疑问，麻烦老师了