Alterar nome da tabela via VBA

Tenho um back-end com senha, onde queria renomear a tabela e não estou conseguindo. Tipo tb_clientes para tblclientes.
Usei os seguintes comandos.

DoCmd.Rename tb_clientes, acTable, tblclientes

*****************

Function RenameTable(OldName As String, NewName As String)
For Each tdf In Base.TableDefs
If tdf.tb_clientes = OldName Then
tdf.tblclientes = NewName
Base.TableDefs.Refresh
End If
Next
Set fdf = Nothing
Set tdf = Nothing
Set Base = Nothing
End Function

*************

'ALTER TABLE "nome_antigo" RENAME TO "nome_novo"

*************

Nenhum desses funcionou.
Peço ao amigos se possível que me ajudem.
Pois faço atualização do sistema mandando um arquivo para os mesmos e eles só clicam e atualiza.

Abraços e boas festas a todos

Tente assim:

Código:

    Dim appAccess As Access.Application, T As Object

    Set appAccess = CreateObject("Access.Application")
    appAccess.OpenCurrentDatabase CurrentProject.Path & "\Nome do banco.mdb", False
   
    For Each T In appAccess.CurrentData.AllTables
        If T.Name = "NomeAntigo" Then
            appAccess.DoCmd.Rename "NovoNome", acTable, "NomeAntigo"
        End If
    Next
   
    appAccess.CloseCurrentDatabase
    Set appAccess = Nothing

Criquio,
veja o meu anexo e se possivel me ajude.
Abraços