I believe the source of your faulty code comes from another web site (maybe bytes?). I am not sure but I guess it is different in excel vba than in access vba. At least in ms access vba, listindex is read only and combo.value = combo.itemdata (i) is what is used to set the selections.
below is...