adicionando itens no listbox

[vanrownd 0]

Private Sub cbo_adv_Click()Dim vlistvlist = lst_cli.Listvsql = "SELECT * FROM espera WHERE cod_cli = " & vlist & ""Set rs = con.Execute(vsql) While rs.EOF = False lst_cli.AddItem rs(0) rs.MoveNext Wend End Subquero q apareça os clientes da tabela espera no list, quando o cara clica no cbo_adv q estao os nomes dos advogadosajudaobrigado

[Luizgrs 0]

você precisa da instrução SQL?

select * from espera where nome_advogado = '" & cbo_adv.list(cbo_adv.listindex) & "'"

[vanrownd 0]

no caso esse cbo_adv é um comboajuda obrigado

[Luizgrs 0]

Mesmo sendo um combo o código é o mesmo da lista para pegar o texto do item selecionado.

[luiz humberto 0]

Para carregar o código em uma combo faça da seguinte maneira:

Cmb.ItemData(Cmb.NewIndex) = Codigo

Para ter acesso ao código faça assim:

Cmb.ItemData(Cmb.ListIndex)

Caso não seja isso que precisa, poste novamente...