Suponiendo que el id que buscas está en id_categoria_buscada...
(ojo a
combo1.NewIndex, que tenías rs.NewIndex)
Código:
idx=-1
Do Until rs.EOF
combo1.additem rs.fields("categoria")
combo1.Itemdata(combo1.NewIndex)=rs.fields("id_categoria")
if rs.fields("id_categoria")=id_categoria_buscada then idx=combo1.NewIndex
rs.movenext
loop
if idx>-1 then combo1.listindex=idx