Compactar banco de Dados Access 2003

[Junior Ari]

galera, tow precisando de um codigo pra compactar meu BD Access 2003. Eu usava um que funcionava na versao 97, era assim:

======================================================

'Compacta o banco de dados

Dim je As New JRO.JetEngine

je.CompactDatabase "Data Source=C:\banco.mdb", "Data Source=C:\Temp.mdb"

'Copia a origem no destino

FileCopy "C:\Temp.mdb", "C:\banco.mdb"

'Apaga o arquivo temporário

Kill "C:Temp.mdb"

======================================================

bem simples, mas funciona

Se alguém souber um que funcione na versao 2003, posta ae, valeu!