Ciao Pietro
ho provato a fare cosi
sub Page_Load() dim db as string="movimenti.mdb" ' db1.mdb è il database da compattare
Dim database, database2 As String
database = Request.MapPath(db)
database2 = Request.MapPath("db2.mdb") ' db2 è il database compattato
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database
Dim strConnTo As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database2
Dim objJro As Object = Server.CreateObject("jro.JetEngine")
objJro.CompactDatabase(strConn,strConnTo)
objJro = Nothing


Dim accessFile As String = server.MapPath("movimenti.mdb")
Dim tempFile As String = Path.Combine(Path.GetDirectoryName(accessFile), Path.GetRandomFileName() + Path.GetExtension(accessFile))


Dim dao As New Dao.DBEngine()
dao.CompactDatabase(accessFile, tempFile)
File.Delete(accessFile)
File.Move(tempFile, accessFile)




end sub

pero' mi da errore

Compilation Error

Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30451: Name 'Path' is not declared.
grazie