Public Shared Function SelectProdukt2(ByVal produktname As String, _
                                          ByVal warengruppe As Integer, _
                                          ByVal lizenznehmer As Integer, _
                                          ByVal produzent As Integer _
                                          )
 
'Query String wird erstellt
 Dim connstring As String = "select * from produkt where produkt_name like '%" _
   & produktname & "%'"
 
        If warengruppe <> Nothing Then
            connstring += " and produkt_warengruppe = " & warengruppe
        End If
 
        If lizenznehmer <> Nothing Then
            connstring += " and produkt_lizenznehmer = " & lizenznehmer
        End If
 
        If produzent <> Nothing Then
            connstring += " and produkt_produzent = " & produzent
        End If
 
        'MsgBox(connstring)
 
'Verbindung wird aufgebaut
        Dim sqlConn As New SqlConnection("Data" & _
          "Source=blablabla_dürft_ihr_nicht_sehen")
        sqlConn.Open()
 
 
        MsgBox(connstring)
'Query wird ausgeführt
        Dim sqlComm As New SqlCommand(connstring, sqlConn)
        Dim r As SqlDataReader = sqlComm.ExecuteReader()
 
 
        Dim x As Integer = 0
'Array wird erstellt
        Dim erg(100) As String
 
'Daten werden ins Array geschrieben
        While r.Read()
            Dim produkt As String = CStr(r("produkt_name"))
            'MsgBox(connstring + " - " + produkt)
            erg(x) = produkt
            x += 1
        End While
 
        r.Close()
        sqlConn.Close()
 
'Daten werden in einer MsgBox ausgegeben (zur kontrolle)
 For Each wert In erg
            If wert <> Nothing Then
                MsgBox(wert)
            End If
        Next
 
return erg
 
End Function

ListBoxProdukte.DataSource = query.SelectProdukt2(txtproduktname.Text, _
  s_warengruppe, s_lizenznehmer, s_produzent)
        ListBoxProdukte.DisplayMember = "produkt_name"
        ListBoxProdukte.ValueMember = "produkt_name"