codice:
    Private Structure sDatiCombo
        Dim _id As String  'o il tipo dati che ti serve
        Dim _val As String 'o il tipo dati che ti serve
 
        Public Sub New(ByVal id As String, ByVal val As String)
            _id = id
            _val = val
        End Sub
        Public ReadOnly Property ID() As String
            Get
                Return _id
            End Get
        End Property
        Public ReadOnly Property VAL() As String
            Get
                Return _val
            End Get
        End Property
    End Structure


    Private Sub RiempiCombo
        Dim oDatiCombo As sDatiCombo
        While TuoReader.Read
            oDatiCombo = New sDatiCombo(TuoReader.CampoID, TuoReader.CampoDesc)
        Next
        Whith TuaComboBox
           .DataSource = oDatiCombo
           .DisplayMember = "VAL" 'il nome della propietà che restituisce il valore della struttura
           .ValueMember = "ID" 'il nome della propietà che restituisce l'id della struttura  
    End Sub