Option Explicit
 
Private Sub cmd_repair_Click()
On Error GoTo fehler
 
Dim showJROengine As New JRO.JetEngine
Dim strShowMDBOld As String
Dim strShowMDBNew As String
Dim DBConnURL As String
Dim DBConnURL2 As String
 
DBConnURL = "c:\showkids\applikation\Show_01.mdb"
DBConnURL2 = "c:\showkids\applikation\Show_01res.mdb"
Me.MousePointer = 11
strShowMDBOld = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & DBConnURL & ";" & _
strShowMDBNew = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & DBConnURL2 & ""
Set showJROengine = New JRO.JetEngine
showJROengine.CompactDatabase strShowMDBOld, strShowMDBNew
Me.MousePointer = 1
MsgBox "Die Datenbank wurde komprimiert und repariert"
Unload Me
 
Exit Sub
fehler:
MsgBox Err.Description, 16, "Problem"
Me.MousePointer = 1
End Sub