' Zum aufbau
    AdoConString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & vDBDir & ";" & _
                   "Persist Security Info=False"
 
    Set tcADOC = New ADODB.Connection
 
    tcADOC.Mode = adModeShareDenyNone
    tcADOC.Attributes = adXactAbortRetaining
    tcADOC.CursorLocation = adUseClient
    tcADOC.ConnectionString = AdoConString
    tcADOC.Open
 
' Zum abbau
    If Not tcADOC Is Nothing Then
        If tcADOC.State <> 0 Then
            tcADOC.Close
        End If
    End If
    Set tcADOC = Nothing
 
    DoEvents
 
' löschen der ldb wäre dann hier :)
  Kill LDBDATEI

Ohne Mampf, kein Kampf !