Public Sub SchließenDB()
    adorsFahrtenbuch.Close
    adorsFahrer.Close
    adorsKFZKennNat.Close
    adorsKFZKennInt.Close
    adorsFahrzeug.Close
    adorsHersteller.Close
    adorsInfo.Close
    adorsÜber.Close
    adorsZweck.Close
    adorsPLZD.Close
    adorsTankbuch.Close
    adorsSpritart.Close
    adorsTankstelle.Close
 
    ADOcn.Close
End Sub
 
Public Sub Komprimieren(Filename As String)
    Dim dbEng As New JRO.JetEngine
    Dim Cn As New ADODB.Connection
    Dim CnTemp As New ADODB.Connection
 
    Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      Filename
 
    CnTemp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      "C:\Temp\FahrtenbuchData.mdb"
 
    dbEng.CompactDatabase Cn, CnTemp
 
    Kill Filename
 
    Name "C:\Temp\FahrtenbuchData.mdb" As Filename
End Sub

mfg
peacemaker

e-mail: vbarchiv@web.de