主题：看帮助联想到的一个扩展，有大神帮忙的吗

今日看帮助，看到动态修改表结构，这一章

其中有一个内容如下所示：

重命名列

在命令窗口执行下面的代码：

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder.Tables("表A")
    .RenameColumn("第一列","姓名")
End With
Builder.Close()

然后重新打开项目，表A的"第一列"已经被重命名为"姓名"。

我想，如果我现在在表A上创建一个窗口，窗口上有控件textbox1 、 textbox2和确定按钮，在textbox1里输入一个字段，比如第一列，在textbox2里输入字段，比如姓名，那么按下确定键后，第一列就会被改为姓名。

也就是说依据控件内容来重命名列。该怎么弄啊