Comparctar y reparar base de datos de access

Hola puedes hacecrlo asi:

Module Module1
Sub Main()
Dim jro As JRO.JetEngine
jro = New JRO.JetEngine()
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:wind.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NewNwind.mdb;Jet
OLEDB:Engine Type=5")
MsgBox("Compactado!")
End Sub
End Module

Salu2.

"DPS" escribió en el mensaje
news:12aa01c56502$ef340170$
Hola,

En VB6 se podía compactar reparar una base de datos de
Access con CompactDatabase. Pero parece que en NET esto ya
no funciona

¿Alguien sabe como se hace ahora?

Gracias