Compact And Repair Freezes the Screen

[rmcompute]

I set up a command to compact and repair the database which runs off of a
submenu called by the main menu. It finishes successfully and goes back to
the main menu, however, the screen is frozen and I have to use Ctl-Alt-Del to
get out. However, sometimes it works. Any ideas ?


Private Sub cbCompact_Click()
CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction
End Sub