combo con 2 datos

[moNTeZIon]

Public Structure OpcionCombo
Private m_ValorReal, m_ValorMostrado As String
Public Sub New(ByVal ValorMostrado As String, ByVal ValorReal As String)
Me.m_ValorReal = ValorReal
Me.m_ValorMostrado = ValorMostrado
End Sub
Public ReadOnly Property ValorReal() As String
Get
Return m_ValorReal
End Get
End Property
Public ReadOnly Property ValorMostrado() As String
Get
Return m_ValorMostrado
End Get
End Property
End Structure

Dim miCombo() As OpcionCombo = { _
New OpcionCombo("aaaaa", 1), _
New OpcionCombo("bbbbb", 2), _
New OpcionCombo("ccccc", 3)}

IdCentralAuna.Datasource = miCombo
IdCentralAuna.DisplayMember = "ValorMostrado"
IdCentralAuna.ValueMember = "ValorReal"

Cuando creas el array miCombo, puedes rellenarlo recorriendo tu datareader y le asignas los campos que quieras en el ValorMostrado...

Espero que sea lo que quieres.
Saludos.