Possible to compact DB (2013) while open

I've read that you cannot do a compact and repair on a database using VBA. If that is not true, please show me how. Office 2013. I've tried:

CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities") _

.Controls("Compact and repair database...").accDoDefaultAction

but that doesn't work. I've also tried sendKeys but don't have the correct key seqence (although I would rather not use sendKeys).



Thanks.

Possible to compact DB (2013) while open