主题：[求助]每列名字加"-1"，为什么运行不了？

Dim Builder As New ADOXBuilder
Dim dc As Col
Dim dcName As String

    For Each dc  In Tables("表A").Cols
        dcName = dc.name + "-1"
       
        Builder.Open()
        With Builder.Tables("表A")  
            .RenameColumn(dc.name,dcName)
        End With
        Builder.Close()
    Next