怎样在access数据库中对现存字段名改名，谢谢！(100分)

问题如题，用ALTER TABLE table_name RENAME COLUMN old_name to new_name
无效。

uses ComObj;
//db：数据库名（完整路径）；usr：用户名；pwd：密码；tbl：表名；oldcol：旧字段名；newcol：新字段名
procedure RenameField(const db, usr, pwd, tbl, oldcol, newcol: WideString);
var
cat: OleVariant;
begin
cat := CreateOleObject('ADOX.Catalog');
cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=' + usr + ';Data Source=' + db + ';Persist Security Info=False;Jet OLEDBatabase Password=' + pwd;
cat.Tables[tbl].Columns[oldcol].Name := newcol;
cat := Unassigned;
end;
注：如果您的 Access 数据库没有密码，则用户名用“Admin”，密码为空...

to vvyang :你这好像没对数据库进行更改吧？数据库实际还是那样的

希望您再好好试试，这种方法我用过 N 遍了。以下是我的一点建议：
1、不会用不要怪别人的东西不好使，牙口不好不要怪苹果硬...
2、希望某些人更改数据库名的时候不要，不要把 Access 的表打开着，那样不仅老土，也看不到更改结果...
3、参数 db 是完整的数据库名（带路径，带 .mdb 后缀），usr 如果您没有特别指定的话用“Admin”，密码为空''；tbl 是字段所在的表名，新旧字段名不要相同；这些小儿科的东西我不想再次腔调，谢谢！

接受答案了.