Visual Basic.NET - Reparar y Compactar Base de Datos

¿Cómo se reparan y compactan bases de datos Access en Visual Basic.Net?. Gracias.

Yo utilizo el mismo código que en VB6.

Public Shared Sub Compactar()
Dim strDB, strDBTmp As String
Dim JE As JRO.JetEngine

Try
strDBTmp = "C:\mybd2.mdb"
strDB = "C:\mybd.mdb"

JE = New JRO.JetEngine()

If dbConn.State = ConnectionState.Open Then dbConn.Close()
JE.CompactDatabase("Data Source=" & strDB, "Data Source=" & strDBTmp)

Kill(strDB)
Rename(strDBTmp, strDB)

Catch ex As Exception
MessageBox.Show("Error: " & ex.Message, "Compactar Base de Datos", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try
End Sub

NOTA: Acuérdate de agregar la referencia a Microsoft Jet and Replication ...