Sub Eingabesuchen()
Dim oConn As ADODB.Connection
Dim Rec As ADODB.Recordset


        Set oConn = New ADODB.Connection
oConn.Open "Driver={MySQL ODBC 5.1 Driver};" & _
"SERVER=localhost;" & _
"DATABASE=mydb;" & _
"USER=root;" & _
"PASSWORD=*****;" & _
"Option=3;" & _
"Readonly=false"


   ListBox2.Clear

     Set Rec = New ADODB.Recordset
Rec.Open "SELECT * FROM inhausartikel WHERE (Kurztext_1 LIKE'%" & TextBox1.Value & _
    "%' OR Kurztext_1_2 LIKE'%" & TextBox1.Value & _
    "%' OR Kurztext_2 LIKE'%" & TextBox1.Value & _
    "%' OR Langtext LIKE'%" & TextBox1.Value & _
    "%') AND (Kurztext_1 LIKE'%" & TextBox4.Value & _
    "%' OR Kurztext_1_2 LIKE'%" & TextBox4.Value & _
    "%' OR Kurztext_2 LIKE'%" & TextBox4.Value & _
    "%' OR Langtext LIKE'%" & TextBox4.Value & _
    "%') AND (Kurztext_1 LIKE'%" & TextBox5.Value & _
    "%' OR Kurztext_1_2 LIKE'%" & TextBox5.Value & _
    "%' OR Kurztext_2 LIKE'%" & TextBox5.Value & _
    "%' OR Langtext LIKE'%" & TextBox5.Value & _
    "%') ORDER BY Preis ASC", oConn



    With Rec
        Do Until .EOF
                ListBox2.AddItem "IDX: " & Rec("IDX") & "                        Preis:" & Rec("Preis") & "€"
                ListBox2.AddItem "K1: " & Rec("Kurztext_1")
                ListBox2.AddItem "K2: " & Rec("Kurztext_2")
                ListBox2.AddItem "K3: " & Rec("Kurztext_1_2")
                ListBox2.AddItem "L: " & Rec("Langtext")
                ListBox2.AddItem ""
                .MoveNext
         Loop
        .Close
    End With


End Sub