For Each c As DataColumn In dt.Columns
            ComboBox1.Items.Add(c.ColumnName)
        Next c

    Private Sub Textbox1_KeyUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Textbox_Suche.KeyUp
        If e.KeyCode = Keys.Enter Then
            dv.Sort = ComboBox1.Text
            dv.RowFilter = dv.Sort & " LIKE '" & Textbox1.Text & "%'"
        End If
    End Sub