Jag hittade den här koden som klippan Andreas Hillqvist skrivit.
<code>

Private Function LookUpItemData(Combo As ComboBox, ItemData As Long) As Long
Dim Index As Long
LookUpItemData = -1
For Index = 0 To Combo.ListCount - 1
If Combo.ItemData(Index) = ItemData Then
LookUpItemData = Index
Exit For
End If
Next
End Function
</code>

Jag skickar med de värden som behövs.
LookUpItemData(frmPhone.cmbComp, CLng(comID)) ComID kan var t ex 2 och namnet DHL.

Men jag vill inte visa företagets id utan jag vill att texten skall visas.

Jag har inte namnet på företaget så jag kan inte jämföra om namnen stämmer, såvida jag inte ska göra en till SQL sats som hämtar namnet men det känns lite overkill.

Går det att lösa eller måste jag gå omvägen genom att hämta företagsnamnet?

//Anna-Karin