[Resolvido] Problema com combobox ao selecionar um item

Pessoal é o seguinte,

Eu preencho a combobox assim:

>
Do While Not RS.EOF

ComNegocio.AddItem RS!produto

ComNegocio.ItemData(ComNegocio.NewIndex) = RS!id_produto

RS.MoveNext

Loop

reparem que o id do item é preenchido com o id que vem do BD, e eu preciso selecionar um item por esse id que eu preencho vindo do bd...

não sei como fazer, achei que fosse assim:

Me.ComNegocio.ItemData(ComNegocio.ListIndex) = Me.txtidprod

Assim dá o erro: "Invalid property array index"

o txtidprod está preenchido com o Id selecionado em um flexgrid de outro form...

Abraços...