修改access中表的字段名(100)

一个access表的表AAAA只有一个字段，由于这个表产生的时候字段名并不知道，如何修改这个字段名，多谢！

var CatalogObj: Variant; ConnStr:String;begin ConnStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./blog.mdb'; CatalogObj := CreateOleObject('ADOX.Catalog'); //创建Ole对象 CatalogObj.ActiveConnection := Variant(ConnStr); //打开数据库 CatalogObj.tables['mytest'].Columns[0].Name := 'aabbcc'; //修改表[mytest]中的第一个字段的名字为aabbcc CatalogObj := null; //释放对象 改字段行中的tables['mytest']中的参数也同样支持index的，如下 CatalogObj.tables[1].Columns['aabbcc'].Name :='newfielddname'; //修改第一个表中的字段[aabbcc]为[newfieldname]更多相关的内容去参考一下ADOX的手册吧。

非常感谢,搞定了,很详细!