Prova a modificare il codice in questo modo :
Togliendo questo:codice:CompactDatabase Nome, Mid(Trim(Nome), 1, Len(Trim(Nome)) - 3) & "Tmp"
Ciaocodice:Set CONN = New JRO.JetEngine CONN_Sorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NOMEDB & ";User ID=Admin;Password=;" CONN_Dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Mid(Trim(NOMEDB), 1, Len(Trim(NOMEDB)) - 3) & "Tmp" & ";" ' CONN.CompactDatabase CONN_Sorg, CONN_Dest ' Set CONN = Nothing