Scusami ho sistemato un paio di cosete ed adesso termina l'elaborazione dandomi questo errore :

ADOX.Table (0x800A0CB3)
L'operazione richiesta non è supportata dall'oggetto o dal provider.
alla linea 10
esattamente qui :
codice:
adox.Tables(oldtbl).Name = newtbl
ancora grazie