Combobox 从数据库取出 id值 怎么显示

我用这个给他赋值。
 Combo_Bm.Clear
  Do While Not rsname.EOF
  With Combo_Bm
  .AddItem rsname!idname & ""
  Combo_Bm.ItemData(Combo_Bm.ListCount - 1) = rsname("id") '特别注意Combo组件用法，区分ID和NAME

  End With
  rsname.MoveNext
  Loop

我在数据库中把 值取出来怎么在给Combo_Bm 呢。请高人指点 
Combo_Bm.Text = adors!department 这样的到的就是一个id值，不是 名称了

我通常加个collection对应

.AddItem rsname!idname & "|" & rsname!id