Sub Eingabesuchen()

   ListBox2.Clear

    Rec = dbOpenRecordset("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")




    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



'FUNCTION
Public Function dbOpenRecordset(ByVal sSQL As String, _
  Optional ByVal CursorType As ADODB.CursorTypeEnum = adOpenDynamic, _
  Optional ByVal LockType As ADODB.LockTypeEnum = adLockOptimistic, _
  Optional ByVal CursorLocation As ADODB.CursorLocationEnum = adUseClient) _
  As ADODB.Recordset

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

  If InStr(1, sSQL, "select", vbTextCompare) = 0 Then
    sSQL = "SELECT * FROM " & sSQL
  End If

  Set dbOpenRecordset = New ADODB.Recordset
  With dbOpenRecordset
    .CursorLocation = CursorLocation
    .Open sSQL, oConn, CursorType, LockType
  End With
End Function