Inazitutto grazie pero non fungge non riesce a terminare l'operazione
Ho impostato la connessione in questo modo forse e errato gli puoi dare uno sguardo thanks
codice:
 
Sub RenameTable()

	oldtbl = "nascar"
	newtbl = "nometabellanuova"
	myconn = "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("u.mdb")

	Set adox = CreateObject("ADOX.Catalog") 
	adox.ActiveConnection = myconn
	adox.Tables(oldtbl).Name = newtbl 
	adox.Tables.Refresh 
	Set adox = nothing 
				
End Sub

'Esegui sub
Call RenameTable()