Ho fatto quanto segue:
- ho riportato lo script alla versione iniziale nella quale non c'erano tentativi di rallentare l'esecuzione.

codice:
Public Sub CompattaDB()
        Try

            If File.Exists(dbTemporaneo) Then
                Kill(dbTemporaneo)
            End If

            LblAvviaImp.Text = "Compattazione dei Files"
            Application.DoEvents()

            Dim MioEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
            Dim DbScr As String = DB_Server
            Dim DbDes As String = dbTemporaneo
            MioEngine.CompactDatabase(DbScr, DbDes)

            File.Copy(dbTemporaneo, DB_Server, overwrite:=True)

        Catch ex As Exception
            MsgBox("Errore durante il tentativo di compattazione del database nella Sub ''CompattaDB'': " & ex.Message)
            RisComp = 0
            If File.Exists(dbCopiaBackup) Then
                File.Copy(dbCopiaBackup, DB_Server, overwrite:=True)
            End If
        End Try
    End Sub

- ho arrestato l'Antivirus (Windows defender, l'unico installato).
- ho generato l'eseguibile.
Il risultato è sempre lo stesso e l'errore che il sistema mi comunica è il seguente: "Si è cercato di aprire un database già aperto dall'utente "admin" nel computer "PC-CASA". Riprovare quando il database sarà disponibile."