É isso ae mesmo Rochª, valeu pela referência... mas posso "embarcar" nesta dica por favor?
A dica é muito boa só q a função cria um outro bd compactado, com outro nome. Para evitar isso segue código...
.
.
. 'código anterior...
JRO.CompactDatabase DB_origem, DB_destino
compactaDB = True
Kill (origem_path)
Name destino_path As origem_path
DoEvents
'é só acrescentar o código em azul na função... deste modo evitamos duplicar o arquivo....
.
.
. 'restante do código
t+
