[VB]urge aiuto con db

[ragno75]

Ragazzi non ne posso più mi serve un aiuto urgentissimo. Devo rinominare una tabella in acess 2000 tramite codice e non riesco a capire come fare, Johnny_Depp mi è stato molto utile ma amcora non ho trovato il sistema che funzioni correttamente, ho provato anche con il comando SQL:

ALTER TABLE vecchionome RENAME nuovonome

ma non c'è niente da fare, vi prego aiutatemi

[ppsoglia]

usa questo codice:

Function pippo()
Dim tdf As New TableDef
Dim db As Database

Set db = CurrentDb
Set tdf = db.TableDefs("Tabella1")

tdf.Name = "pippo"

Set tdf = Nothing

End Function