VB.NET压缩ACCESS数据库

'创建数据库
  Private Sub Create(ByVal mdbPath As String)
        If File.Exists(mdbPath) Then
            Throw New Exception("目标数据库已经存在，无法创建")
        End If
        mdbPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + mdbPath
        Dim cat As ADOX.Catalog = New ADOX.Catalog()
        cat.Create(mdbPath)
    End Sub
    '''' <summary>
    '''压缩修复数据库
    ''' </summary>
    ''' <param name="mdbPath"> 被压缩的数据库路径+数据库文件名</param>
    ''' <remarks></remarks>
    Public Sub Compact(ByVal mdbPath As String)
        'If Not File.Exists(mdbPath) = False Then '检查数据库是否已存在
        '    Throw New Exception("目标数据库不存在，无法压缩")
        'End If
        Dim temp = GetSysDatePartTime()
        Dim FilePath As String = mdbPath.Substring(0, mdbPath.LastIndexOf("\") + 1)
        Dim DbFileName As String = mdbPath.Substring(mdbPath.LastIndexOf("\") + 1, mdbPath.Length - mdbPath.LastIndexOf("\") - 1)
        File.Copy(mdbPath, FilePath + "DbBak\Bak" + temp + ".mdb", True)
        Dim StrProvid As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        Dim jt As JRO.JetEngineClass = New JRO.JetEngineClass()
        jt.CompactDatabase(StrProvid + mdbPath, StrProvid +