adicionando itens no listbox

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