Rename a Table Under a MS Access File

Edit Table Name in MS Access (.accdb or .mdb format) through a click button.

Dim tdf As TableDef
    Set db = DBEngine.Workspaces(0).OpenDatabase("InputPath")
    Set tdf = db.TABLEDEFS("TableName")
    tdf.Name = "TableName" + "_SomeThing_NEW"