<code>
Dim con
Dim tbl
Dim tblSrc
Dim cat
Dim I

Set con = Server.CreateObject("ADODB.Connection")
Set tbl = Server.CreateObject("ADOX.table")
Set tblSrc = Server.CreateObject("ADOX.table")
Set cat = Server.CreateObject("ADOX.catalog")

con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Work\authors.mdb"
cat.ActiveConnection = con

tbl.ParentCatalog = cat
tblSrc.ParentCatalog = cat
tbl.Name = "ArchivioBackup"

For I = 0 To cat.Tables("Archivio").Columns.Count - 1
tbl.Columns.Append cat.Tables("Archivio").Columns(I).Name, cat.Tables("Archivio").Columns(I).Type, cat.Tables("Archivio").Columns(I).Precision
Next I
cat.Tables.Append tbl
con.Execute "INSERT INTO ArchivioBackup SELECT * FROM Archivio"
cat.Tables.Delete "Archivio"
cat.Tables.Refresh

con.Close
Set tbl = Nothing
Set tblSrc = Nothing
Set con = Nothing
</code>

Dovrebbe funzionare.... Prova...

<b>Andrea Palmatè</b>
<i>ASPITALIA.com</i>