Compact from code again

V

VB

I am trying to compact the current db in which the code is
running. I am running Access 2002. I have looked at this site and tried the
code:

Public Sub CompactDB()

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

I get this message from access:

Run-time error 5:
Invalid procedure call or argument
Please help
 
Top