◆概要
Microsoft Jet OLE DB Provider and Replication Objects (JRO) でAccessデータベースを最適化する方法をを説明します。

◆Microsoft Jet and Replication Object 2.x Library

ADO を使用して Access データベースを最適化するには、参照設定で、Microsoft Jet and Replication Object 2.x Libraryを追加する必要があります。

Private Sub cmdADO最適化_Click()
    Dim Jrojet As New JRO.JetEngine
    Dim strCon As String
    
    ' データベースを最適化します。
    ' ADOコネクション文字列の指定
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    
    ' 構文 CompactDatabase 最適化前の接続、最適化後の接続
    Jrojet.CompactDatabase strCon & "C:\test.mdb", _
        strCon & "C:\最適化後.mdb"
        
    ' オリジナルMDBを削除
    Kill "C:\test.mdb"
    
    ' 最適化後MDBを、オリジナルの名前にリネーム
    Name "C:\最適化後.mdb" As "C:\test.mdb"
    
End Sub