Como Compactar/Reparar um banco de dados aberto no ACCESS 2013, com VBA

Como Compactar/Reparar um banco de dados aberto no ACCESS 2013, com VBA, seguindo este exemplo do JPaulo?

------- JPaulo ---------
Compactar Banco 2007 aberto.

No evento VBA ao pressionar de um botão...

Private Sub SeuBotão_Click()
Dim ws As Object
Set ws = CreateObject("WScript.shell")
ws.SendKeys "%AGO"
Set ws = Nothing
End Sub
-----------------------