Rename Table Access

[slay]

devo rinominare una tebella access ho fatto
dcnDB.Execute("RENAME TABLE vecchionome nuovonome")

ma non funzia ..

[slay]

per chi fosse interessato ho risolto così:

dim oldtbl,newtbl,adox
oldtbl = "vecchionome"
newtbl = "nuovonome"

Set adox = createObject("ADOX.Catalog")

' Attribuiamo allo script la connessione
adox.ActiveConnection = dcnDB

' Impostiamo la rinominazione
adox.Tables(oldtbl).Name = newtbl

' Eseguiamo
adox.Tables.Refresh

Set adox = nothing