Private Sub btnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuche.Click
    
        Dim cmd As DbCommand = New SqlCommand()
        cmd.CommandText = "SELECT * FROM stat11patienten"
        cmd.Connection = conn
        Dim ds As New DataSet()
        Dim da As DbDataAdapter = New SqlDataAdapter()
        da.SelectCommand = cmd
        da.Fill(ds)
        Dim tbl As DataTable = ds.Tables(0)

        ListView1.Clear()

        initializeListView()

        Dim rows() As DataRow = tbl.Select("Vorname LIKE '" & txtSuche.Text & "'")
        For Each row As DataRow In rows
            Dim itm As New ListViewItem(row("ID").ToString)
            itm.SubItems.Add(row("Nachname").ToString)
            itm.SubItems.Add(row("Vorname").ToString)
            itm.SubItems.Add(row("Dauer").ToString)
            itm.SubItems.Add(row("Fachbereich").ToString)
            Dim d As DateTime = Convert.ToDateTime(row("Datum"))
            itm.SubItems.Add(d.Date.ToString(d))

            ListView1.Items.Add(itm)

        Next

    End Sub

Dim rows() As DataRow = tbl.Select("Vorname LIKE '" & txtSuche.Text & "'")<br/>