Scusami ma mi sa che c'è qualcosa che non riesco propio a capire ho fatto cosi ma il risultato non cambia ecco il codice :
codice:
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.open = "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("u.mdb")

 Sub RenameTable()

	oldtbl = "nascar"
	newtbl = "nometabellanuova"
	myconn = Conn1
	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()
mi da sempre lo stesso errore
grazie ancora