posicionarse en combo list

[dobled]

tengo un problemita con un combo, lo que pasa es que en un form donde modifico los valores de un vehiculo traigo un combo de la tabla categorias. esta tabla tiene un id_categoria y la categoria. en el combo muestro la categoria y el id_categoria lo algrego al id del combo.

bueno mi problema es que cuando traigo los datos de la tabla vahiculos en el campo de las categorias guardo el id. Ahora quiero que cuando se despliegue el combo categorias se posicione en la categoria que corresponde y no lo hace.

asi lleno el combo

Código:

Do Until rs.EOF
combo1.additem rs.fields("categoria")
combo1.Itemdata(rs.NewIndex)=rs.fields("id_categoria")'yo le indico el valor del index
rs.movenext
loop

que tengo que hacer para que cuando rescate los datos del auto se pposicione en la opcion que corresponde?

Saludos

[Kelpie]

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