怎么修改字段名字？

在设计器里的报表里，命令下面的一份分支。班级表里有个名叫“年级”的字段，我想改成“班级”，不知道怎么弄。请大家帮下忙。
这个该怎么弄啊？属性里面也改不了。 --------------------编程问答-------------------- select 年级 AS 班级…… from……
不行吗？ --------------------编程问答-------------------- 不得行啊 --------------------编程问答-------------------- 设计器的报表?直接修改 标签的文本吧 --------------------编程问答-------------------- 引用 Microsoft ADO Ext. 2.x for DLL and Security

Dim cat As ADOX.Catalog

Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='c:\db1.mdb'"
cat.Tables("班级表").Columns("年级").Name = "班级"

补充：VB ,  基础类