Combo

[tazzito]

mmm nunca eh usado de esa forma el additem del combo, pero si strid es del tipo numerico (aunque a simplevista parece que no) puedes ingresarlo en el itemdata del combo
lcmb.ItemData(lcmb.NewIndex) = lrsCombos.Fields("Strid")

a lo mejor en tu codigo si es numerico y el cstr quitalo (asi no lo transformas a string)

y la otra forma (al menos la que yo prefiero usar) es cargar un listbox con el codigo del id ejemplo
list_lcmb.AddItem Trim(lrsCombos.Fields("strid")) <-- si es texto

y despues lo busco asi

msgbox "El Id Seleccionado es " + trim(list_lcmb.list(lcmb.listindex))