Как переименовать таблицу в Access

Компилятор: Visual Basic

Public Function RenameTable(DatabaseName As String, _
ByVal OldTableName As String, _
ByVal NewTableName As String) As Boolean

'DataBaseName имя и путь файла базы данных
'OldTableName имя таблицы, которую Вы хотите переименовать
'NewTableName новое имя таблицы
'В случае успеха, возвращает true, иначе false

'Проект должен иметь ссылку на DAO

On Error GoTo errorhandler
Dim oDB As DAO.Database
Dim td As DAO.TableDef

Set oDB = Workspaces(0).OpenDatabase(DatabaseName)
On Error GoTo errorhandler
If Not TableExists(oDB, OldTableName) Then GoTo errorhandler
If TableExists(oDB, NewTableName) Then GoTo errorhandler
'Создаём объект таблицы
Set td = oDB.TableDefs(OldTableName)
td.Name = NewTableName
oDB.TableDefs.Refresh
oDB.Close
RenameTable = True
Exit Function

errorhandler:
If Not oDB Is Nothing Then oDB.Close
Set td = Nothing

End Function