Hejsan jag försöker via VB kod att Kompakta/Reparera en access 2000 db, då använder jag JRO.

Detta verkar inte fungera jag får inga felmeddelanden i applikationen men Kompakta/Reparera verkar inte fungera? Gör jag detta manuellt i Access går det bra.
Jag kör Kompakta/Reparera varje gång applikationen startar.

Nån som råkat ut för samma fenomen?

Hur gör du?

/Johan

Jag använder denna funktion i VB som anropas när applikationen startas:

Public Function compactDB(ByVal SOUR_path As String, _
ByVal DEST_path As String) As Boolean

On Error GoTo Err_compact
Dim JRO As New JRO.JetEngine

' Source and Destination connection path
Dim DB_sour As String, DB_dest As String

DoEvents
DB_sour = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& SOUR_path
DB_dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& DEST_path & " ;Jet OLEDB:Engine Type=5"

JRO.CompactDatabase DB_sour, DB_dest

compactDB = True
Exit Function

Err_compact:
compactDB = False
MsgBox Err.Description, vbExclamation
End Function