use the load event of form
private sub form_load()
dim lngId as long, j
lngID=IDnumber 'don't know how you got the value of IDnumber
with me.cbo1
for j =0 to .listcount -1
if .column(0,j)=lngID then
.value=.itemdata(j)
exit for
end if
next
end with
end sub