[RESOLVED] ComboBox loses its value when clicked???

[blakemckenna]

Here's my query:

Private Sub LoadTerminalComboBox()
        Try
            Dim iRow As DataRow
            Dim tmpTerminal As String = ""
 
            strProcedure = "LoadTerminalComboBox"
            cmbTerminal.Items.Clear()
 
            For Each iRow In dtBatchHeader.Rows
                If iRow.Item("terminal") = Convert.ToString(tmpTerminal) Then
                Else
                    cmbTerminal.Items.Add(iRow("terminal"))
                    tmpTerminal = iRow("terminal")
                End If
            Next
 
        Catch ex As Exception
            ErrorHandler(strProgram, strModule, strProcedure, Msg)
        End Try
    End Sub

All I'm doing is loading a combobox from a Datatable.