combobox pasar valor

No te entiendo la pregunta, traes la descripcion y el codigo pero en el
combo obviamente muestras la descripcion, pero no sabes como recuperar o
donde guardar el codigo?? ... espero sea asi la pregunta, y la respuesta
seria asi:
Implementa esta clase:

Public Class MiItemCombo
Private m_Desc As String
Private m_Id As String
Public Sub New(ByVal Descripcion As String, ByVal Codigo As String)
m_Desc = Descripcion
m_Id = Codigo
End Sub
Public Property Descripcion() As String
Get
Return m_Desc
End Get
Set(ByVal Value As String)
m_Desc = Value
End Set
End Property
Public Property Codigo() As String
Get
Return m_Id
End Get
Set(ByVal Value As String)
m_Id = Value
End Set
End Property
Public Overrides Function ToString() As String
Return m_Desc
End Function

Asi para llenar el combo seria algo como:
Dim itm as MiItemCombo
For Each dr As DataRow In .
itm = New MiItemCombo(CType(dr("Description"), String), CType(dr("ID"),
String))
MiCombo.Items.Add(itm)
Next

Para recuperar por ejemplo el id seria:
MiCodigo = ctype(miCombo.selecteditem, MiItemCombo).Codigo