ALTER TABLE CHANGE - Spaltennamen ändern in Access

[Ydobon]

Jet kennt etwas zum Umbenennen anscheinend nicht, zumindest schweigt sich die Hilfe von Access dazu aus.
Darum wurde ja ADOX erfunden:

Delphi-Quellcode:

var cat: _Catalog;
begin
  cat:=CoCatalog.Create;
  cat.Set_ActiveConnection(ADOConnection1.ConnectionObject);
  cat.Tables.Item['AlterName'].Name:='NeuerName';