cmdsu.CommandText = "Select * from Videoliste where " & cmbsearch1.Text & "" & _
  "Like '*" & suchtext & "*'"
 
        consu.Open()
 
        readersu = cmdsu.ExecuteReader()
 
        Do While readersu.Read()
            ListBox1.Items.Add(readersu("Titel"))
        Loop
        consu.Close()
        readersu.Close()

Gruss Caddy