If ocngDB Is Nothing Then
        MDISerialkeys.sbrSerialkeys.Panels(2).Text = "Verbindung zur Datenbank" & _
          "wird hergsetellt..."
        Set ocngDB = New ADODB.Connection
        ocngDB.CursorLocation = adUseClient
        ocngDB.Provider = "Microsoft.Jet.OLEDB.4.0"
        ocngDB.Properties("Persist Security Info") = False
        If fFileExist(sDATAPATH & sDATABASENAME) = False Then Exit Function
        ocngDB.Open sDATAPATH & sDATABASENAME
        fConnectDB = True
        MDISerialkeys.sbrSerialkeys.Panels(2).Text = "Verbindung zu " & _
          sDATAPATH & sDATABASENAME & " wird geöffnet.."
    Else
        If ocngDB.State = adStateClosed Then
            MDISerialkeys.sbrSerialkeys.Panels(2).Text = "Verbindung zur" & _
              "Datenbank wird hergestellt..."
            Set ocngDB = New ADODB.Connection
            ocngDB.CursorLocation = adUseClient
            ocngDB.Provider = "Microsoft.Jet.OLEDB.4.0"
            ocngDB.Properties("Persist Security Info") = False
            If fFileExist(sDATAPATH & sDATABASENAME) = False Then Exit Function
            ocngDB.Open sDATAPATH & sDATABASENAME
            MDISerialkeys.sbrSerialkeys.Panels(2).Text = ""
            fConnectDB = True
        End If
    End If
 
Dim sSQL$
    Set orsHersteller = New ADODB.Recordset
    Set orsHersteller.ActiveConnection = ocngDB
    orsHersteller.CursorType = adOpenDynamic
    orsHersteller.LockType = adLockOptimistic
    sSQL = "SELECT t_hersteller.H_ID, t_hersteller.hersteller " & _
        "From t_hersteller ORDER BY t_hersteller.hersteller;"
    orsHersteller.Open sSQL, ocngDB, adOpenDynamic, adLockOptimistic, adCmdText
 
    With sevtxtHersteller
        .Style = rsTextBox
        .AutoComplete = False
        Set .DataSource = orsHersteller
        .DataField = "Hersteller"
    End With
 
    orsHersteller.Delete adAffectCurrent
    orsHersteller.Update
    If Not orsHersteller.BOF = True Then
        orsHersteller.MovePrevious
    Else
        orsHersteller.MoveFirst
    End If