compactad una base de datos acces con visual basic .net

AÑADE LA REFERENCIA "Interop.JRO.dll" LA DESCRIPCION EN MI APLICACION ES
="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




"Gabriel" escribió en el mensaje
news:

Como se puede compactar una base de datos acces con visual basic .net ?