[Resolvido]Abrir o Banco de dados e compacta

Boa noite pessoal seguinte estou com o seguinte problema tenho dois modulos um o administrador e o outro o banco de dados porem no administrador tenho um formulario manutenção. e nele um botão zerar que zera todos os registros das tabelas limpa o sistema para começar de novo porem ao executar eu queria q ele abri se o banco de dados access e compacta-se automaticamente para zerar e começa os registro do 1 pois tem auto numeração
o código do botão zera e esse
CurrentDb.Execute "Delete * from [Produtos]"
CurrentDb.Execute "Delete * from [Consulta_Alunos_Grupo]"
CurrentDb.Execute "Delete * from [Consulta_Debito_Aluno]"
CurrentDb.Execute "Delete * from [Resultado]"
CurrentDb.Execute "Delete * from [Agendamento_AValiação]"
CurrentDb.Execute "Delete * from [Alunos]"
CurrentDb.Execute "Delete * from [Avaliação]"
CurrentDb.Execute "Delete * from [Comissão]"
CurrentDb.Execute "Delete * from [Compra]"
CurrentDb.Execute "Delete * from [Consu_Presença]"
CurrentDb.Execute "Delete * from [Desconto]"
CurrentDb.Execute "Delete * from [Detalhe_Calculo]"
CurrentDb.Execute "Delete * from [Detalhe_CompraP]"
CurrentDb.Execute "Delete * from [Detalhe_Venda]"
CurrentDb.Execute "Delete * from [Detalhe_VendaP]"
CurrentDb.Execute "Delete * from [Exercicio]"
CurrentDb.Execute "Delete * from [Fornecedores]"
CurrentDb.Execute "Delete * from [Mensagem_ALuno]"
CurrentDb.Execute "Delete * from [Modalidade]"
CurrentDb.Execute "Delete * from [Pagamento_Compra]"
CurrentDb.Execute "Delete * from [Pagamento_Mensalidade]"
CurrentDb.Execute "Delete * from [Pagamento_Venda]"
CurrentDb.Execute "Delete * from [Presença]"
CurrentDb.Execute "Delete * from [Produtos]"
CurrentDb.Execute "Delete * from [SubCompra]"
CurrentDb.Execute "Delete * from [SubTreino]"
CurrentDb.Execute "Delete * from [Treino]"
CurrentDb.Execute "Delete * from [Turmas]"
CurrentDb.Execute "Delete * from [Venda]"
MsgBox "Sistema Reiniciado com Sussesso!!!", vbInformation, "Sistema Academia"


porem posso ate criar um formulário e nele criar o envento ao abrir ou ao carregar e executar o comando para compactar. sera que alguem pode me ajudar???

bom galera pesquisando os post encontrei o post do nosso mestre Jp copiei e adaptei o código muito bom
fiz um atalho com as instruções para compacta o access
e coloquei o código dentro do formulario manutenção que fica no sistema administrador ao apagar todos os registros ele chama o código que executa o atalho e compacta e repara o banco de dados e começa os registros tudo do zero
ficando o código assim
CurrentDb.Execute "Delete * from [Produtos]"
CurrentDb.Execute "Delete * from [Consulta_Alunos_Grupo]"
CurrentDb.Execute "Delete * from [Consulta_Debito_Aluno]"
CurrentDb.Execute "Delete * from [Resultado]"
CurrentDb.Execute "Delete * from [Agendamento_AValiação]"
CurrentDb.Execute "Delete * from [Alunos]"
CurrentDb.Execute "Delete * from [Avaliação]"
CurrentDb.Execute "Delete * from [Comissão]"
CurrentDb.Execute "Delete * from [Compra]"
CurrentDb.Execute "Delete * from [Consu_Presença]"
CurrentDb.Execute "Delete * from [Desconto]"
CurrentDb.Execute "Delete * from [Detalhe_Calculo]"
CurrentDb.Execute "Delete * from [Detalhe_CompraP]"
CurrentDb.Execute "Delete * from [Detalhe_Venda]"
CurrentDb.Execute "Delete * from [Detalhe_VendaP]"
CurrentDb.Execute "Delete * from [Exercicio]"
CurrentDb.Execute "Delete * from [Fornecedores]"
CurrentDb.Execute "Delete * from [Mensagem_ALuno]"
CurrentDb.Execute "Delete * from [Modalidade]"
CurrentDb.Execute "Delete * from [Pagamento_Compra]"
CurrentDb.Execute "Delete * from [Pagamento_Mensalidade]"
CurrentDb.Execute "Delete * from [Pagamento_Venda]"
CurrentDb.Execute "Delete * from [Presença]"
CurrentDb.Execute "Delete * from [Produtos]"
CurrentDb.Execute "Delete * from [SubCompra]"
CurrentDb.Execute "Delete * from [SubTreino]"
CurrentDb.Execute "Delete * from [Treino]"
CurrentDb.Execute "Delete * from [Turmas]"
CurrentDb.Execute "Delete * from [Venda]"
MsgBox "Sistema Reiniciado com Sussesso!!!", vbInformation, "Sistema Academia"



Dim strCaminho$

strCaminho = "C:\Sistema Academia" & "\" & "Banco de Dados" & ".lnk"

Application.FollowHyperlink strCaminho, , True

MsgBox "Sistema Compactado com Sussesso!!!", vbInformation, "Sistema Academia"




pois o access ja da a opção ao sair compactar porem eu queria que em um DB compactasse o outro sem precisar entrar nele deu certim.