高手救命!!請問資料表名稱要如何修改(編號：8447)

以下是程式碼
但但她確不動作且告訴我錯了了!請問正確的語法??救人喔!!
Set Ws = DBEngine.Workspaces(0)
　Set db1 = Ws.OpenDatabase(App.Path + "\.\TTT.MDB")
　db1.Execute "ALTER TABLE [新資料表] RENAME COLUMN [待修改資料欄] TO [更改資料欄]", dbSQLPassThrough