clicando em uma combobox

[AndersonDutra 4]

Preciso do seguinte: Tem uma combobox, eu tenho que clicar nela e exibir os dados nas caixas de textos. Eu sei fazer em DAO mais não sei fazer em ADO pois ele não suporta Index nem Seek

[eriva_br 7]

você pode usar o FIND

[Luizgrs 0]

Com o ADO você tb pode usar sql.

set rs = conexao.execute("select campo1,campo2,... from tabela where campo1='valor1'")

Nesse Artigo Fala bem sobre sql

[Screech 0]

Com SQL fica bem fácilSQL="SELECT Campo1, Campo2 FROM Tabela WHERE Campo1='" & Campo1 & "'"Seurecordset.open SQL,Suaconexao,3,3if Seurecordset.eof or Seurecordset.bof then msgbox "Não há registros que atendam a este critério"else text1.text=seurecordset(0) 'Neste caso Campo1 text2.text=seurecordset(1) 'Neste caso Campo2...end if

[AndersonDutra 4]

Tentei o código que o Screech passou mas ele dá o erro:

 

Run Timer error 3705

Operação não permitida quando o objeto está aberto

 

a linha que ele dá o erro é essa:

estoque.Open SQL, Conexao, 3, 3

[Luizgrs 0]

Você leu o erro?Você deve ter aberto o objeto estoque anteriormente tenta fechar ele antes deu usar esse método.