[VB.net] datacombobox

   Private Function combobox1datasource() As DataView
        Dim dt As New DataView(fxts.users)
        dt.RowFilter = fxts.c_active.DataPropertyName & " = 1"
        Return dt
    End Function

        With ComboBox1
            .Items.Clear()
            .DataSource = combobox1datasource()
            .FlatStyle = FlatStyle.Flat
            .DropDownStyle = ComboBoxStyle.DropDownList
            .DisplayMember = fxts.c_ID.DataPropertyName
            .ValueMember = fxts.c_hash.DataPropertyName
        End With