Prova a modificare il codice in questo modo :

codice:
CompactDatabase Nome, Mid(Trim(Nome), 1, Len(Trim(Nome)) - 3) & "Tmp"
Togliendo questo:

codice:
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
Ciao