ACCESS改表名称

fl75537638

Access 中很简单：
1、改变表名
//DBName: 数据库名; OldTblName: 原表名; NewTblName: 新表名;
procedure RenameTable(c**t DBName, OldTblName, NewTblName: string);
var
cat: OleVariant;
begin
cat := CreateOleObject('ADOX.Catalog');
cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBName;
cat.Tables[OldTblName].Name := NewTblName;
cat := Unassigned;
end;


请问在TC中这些代码如何写，才能实现修改access的表名呢，谢谢各位大大参观指导！