combobox valuemember problem

Private Sub GetFinanceHoldType()

        ' declare data reader
        Dim FinanceHoldReader As SqlDataReader = Nothing

        Try

            'disable the read only property
            Me.fHold.DropDownStyle = ComboBoxStyle.DropDown

            ' clear the combo datasource
            With Me.fHold
                .DataSource = Nothing
            End With

            ' Get the Finance Hold types through a data reader
            FinanceHoldReader = GetFinanceHold_020912() 'JPM1
            'bind to an arraylist that contains entries based on the the structure that
            ' has been defined FHoldComboItems.
            Dim FHoldComboItems As New ArrayList


            'add a empty string value as the first item
            With FHoldComboItems
                .Add(New FHoldComboBoxItems("", ""))
            End With

            ' add the values from the datareader
            While FinanceHoldReader.Read
                With FHoldComboItems
                    '.Add(New FHoldComboBoxItems(FinanceHoldReader.Item("HoldReason")))
                    .Add(New FHoldComboBoxItems(FinanceHoldReader.Item("HoldReason"), IIf(FinanceHoldReader.Item("HoldTest") = True, "1", "0")))

                End With


            End While

            'close the data reader
            FinanceHoldReader.Close()

            'bind the arraylist to the combo box 
            With Me.fHold
                .DataSource = FHoldComboItems
                .ValueMember = "getFHold"
                ' .ValueMember = "getFHold

            End With

            ' Show the Finance Hold types
            Me.fHold.DisplayMember = "getFHold"

        Catch ex As Exception
            ' in case of an error, return the message
            MsgBox(ex.Message)

        Finally
            ' close the datareader in case it's still open
            If Not (FinanceHoldReader Is Nothing) Then
                FinanceHoldReader.Close()
            End If

        End Try

    End Sub
end code

Select allOpen in new window

Protected Structure FHoldComboBoxItems
        Private FHold As String
        Private FHoldTest As String

        Public Sub New(ByVal Hold As String, ByVal HoldTest As String)
            FHold = Hold
            FHoldTest = HoldTest
        End Sub


        Public ReadOnly Property getFHold() As String
            Get
                Return FHold
            End Get
        End Property
        Public ReadOnly Property getFHoldtest() As String '
            Get
                Return FHoldTest
            End Get
        End Property
    End Structure
    '/////////////////////////////////////////

Select allOpen in new window

old code to return other field which works
        NSFChanged = "Clean"
           Select Case Me.fHold.Text
            Case "Bounced Check", "Credit Card Charge Back"
                Select Case Me.fHold.ValueMember
                    Case "Bounced Check", "Credit Card Charge Back"
                        '  NSF is already there, don't update
                    Case Else
                        '  there() 's no bounced check or CC charge back yet, update main record
                        NSFChanged = "UpdateNSF"

                End Select
        End Select

Select allOpen in new window