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