Originariamente inviato da sebamix
Guarda che potrebbe essere pericoloso compattare il database ad ogni avvio oltre che lento. Solitamente è consigliabile includere una voce di menu "Compatta archivio ..." e non farlo sempre.
Se tale procedura la esegui tramite un oggetto (come un bottone ad esempio) potresti cambiare la caption del bottone.
codice:
Private Sub CompattaBD_Click()
    CompattaBD.Caption="Processing ..."
    Call compattaBD()
    CompattaBD.Caption="Completed"
End Sub
O qualcosa di simile