Combobox varias columnas Selected

[madumo]

Muchas gracias Pabloryser, eso es exactamente lo que hago para la carga. El problema está a la hora de poner el combo.selecteditem o combo.selectedvalue, que nunca encuentra un valor igual al que yo he "combinado"
Aunque creo que de momento, encontré la solución: consiste en buscar dentro del combo el valor del id que quiero:

Function Busca(ByVal value As Object, combo As ComboBox) As Object
If Not IsDBNull(value) Then
For Each item As Object In combo.Items
Dim obj As Object
obj = fgstrExtraeCodigo(item)
If obj = value Then
Return item
End If
Next
Return Nothing
Else
Return Nothing
End If
End Function

Function fgstrExtraeCodigo(ByRef texto As String) As String
Dim punt As Short
punt= InStr(texto, "·")
If punt> 0 Then
fgstrExtraeCodigo = RTrim(LTrim(Mid(texto, punt+ 1)))
Else
fgstrExtraeCodigo = ""
End If
End Function

Con estas funciones, ya puedo elegir el combo.SelectedItem
combo.SelectedItem = Busca(valor,combo)