Sub LoadItems(ByVal strCatalog As String)
        Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=C:\Daten\Geräteausleihe\Geraeteausleihe.mdb;"
        Dim connectOLEDB As New OleDb.OleDbConnection(connectString)
        Dim strSQL As String = "SELECT Bezeichnung, Spitzname FROM Geraeteliste" & _
          "WHERE Kategorie = " & strCatalog
 
        Dim commandOLEDB As New OleDb.OleDbCommand(strSQL, connectOLEDB)
        Dim datareaderOLEDB As OleDb.OleDbDataReader
 
        Try
            connectOLEDB.Open()
            datareaderOLEDB = commandOLEDB.ExecuteReader <-- An dieser _
              Stelle kommt die Fehlermeldung
            With datareaderOLEDB
                Do While .Read
                    frmLending.ListBoxChoseItem.Items.Add(.Item("Bezeichnung") _
                      & " " & .Item("Spitzname"))
                Loop
                .Close()
            End With
        Catch ex As Exception
            MsgBox(ex.ToString)
            Exit Try
        Finally
            connectOLEDB.Close()
        End Try
 
    End Sub