Compactar y Reparar BD

Buen dia, he conseguido el siguiente codigo para compactar y reparar una base de access 2003 por medio de un boton de comando, pero me arroja el siguiente aviso " No se puede compactar una base de datos abierta mientras se ejecuta una macro o codigo de visual Basic", alguien me podria hechar una mano
On Error Resume Next
CommandBars. _
FindControl(Id:=2071).accDoDefaultAction