Valor do Produto no campo texto

[mauricio2304 0]

Tenho uma combo onde seleciono o produto e automaticamente ele resgata o valor do produto e joga em um campo texto. Gostaria de saber como se faz isso, só tenho esse código que tentei fazer:Private Sub cboPedProduto_Click() Dim rstconsulta As New ADODB.Recordset Dim strsql As String strsql = "select proValorVenda from Produto where proCod = & fConvValorSQL(cboPedProduto.Text, E_texto) & " rstconsulta.Open strsql, cnnBanco, adOpenForwardOnly 'ACHO QUE É AQUI QUE ESTÁ O ERRO txtPedData.Text = strsql End SubObrigado pelo ajuda!!!

[Luizgrs 0]

Para recuperar um campo de um recordset que você preencheu, no caso de ADO você pode fazer assim:

valor_do_campo = rsRecordset("nome_do_campo")

Sendo o rsRecordset meu objeto adodb.recordset devidamente preenchido