busca com combo-box

Tudo de bom a todos.

Eu estou com um problema com combobox, onde eu preciso dizer que o codigo:xxxx. corresponde a tantos produtos no outro combo.


Na verdade seria mais ou menos assim:

Na tabela produtos eu eu tenho codigo e frutas:

codigo: aa12w       fruta: banana
codigo: bc52h       fruta: abacate
codigo: bc52h       fruta: manga
codigo: aa12w       fruta: abacaxi
codigo: aa12w       fruta: maçã


no formulário eu vou ter dois combobox, combo codigo:  (select codigo from produtos) -- para o combo codigo;
e no combo fruta eu irei listar as frutas do codigo correspondente.


Exemplo:

cboCodigo (click) = aa12w

cboFruta (listar) = banana, abacaxi, maçã.

O que eu tentei fazer foi pegar a string do combo pelo nome dele, mas infelizmnte não sei fazer, vejam.

select frutas from produtos where codigo=cboCodigo;
select frutas from produtos where codigo='" & cboCodigo & "';

Não dá.

A questão é somente pegar o valor do combo codigo e fazer leitura das frutas existentes do codigo do combo codigo.

Ajuda pessoal, obrigado!

Boa tarde,

No evento Após Atualizar da cboCodigo, escreva:

Me!cboFruta.RowSource = "select frutas from produtos where codigo='" & cboCodigo & "'"
Me!cboFruta.Requery

se Funciona eu não to sabendo como faz. fiz como vc disse mas não funciona.

coloquei no afterupdate e no clique


mas ele só entende o que fica na linha de dados das ´propriedades do objeto.

via codigo não passa.

já tentei fazer um redordset mas o access não entendi nada via codigo, ele só entendi o que coloca na linha d de dados lá nas propriedades.

Será que via codigo isso tem jeito?