Compactar base de ACCCES..

Hola :



Soy novato en el uso de bases de datos en Access y quiero consultar como
tengo que compactar las base de datos. Porque veo que a medida que se usan
crecen en volumen mas de lo real..porque , sucede esto??. Como lo puedo
evitar.???

="Microsoft Jet and Replication Objects 2.6 Library"

Private Sub INTEGRIDAD_ACCESS()
Dim jro As JRO.JetEngine

Dim ORIGINAL As String = "C:\ORIGINAL.MDB"

Dim DESTINO As String = "C:\DESTINO.MDB"

Try

jro = New JRO.JetEngine

jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
ORIGINAL & _

";Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DESTINO & ";Jet
OLEDB:Engine Type=5")

File.Delete(ORIGINAL)

File.Copy(DESTINO, ORIGINAL)

Catch

MSGBOX( "SE PRODUJO UN ERROR AL INTENTAR COMPROBAR LA INTEGRIDAD DE LA
BASE DE DATOS. IMPOSIBLE CONTINUAR.")



End Try

End Sub