SELECT ( alguem)

Private Sub cbo_cod_Click()Dim vcod As IntegerDim vadv As Stringvcod = cbo_cod.Textvadv = cboAdv.TextcboAdv.Clearvsql = "SELECT int_adv FROM cliente WHERE nom_adv = '" & vadv & "'"Set rs = con.Execute(vsql) While rs.EOF = False cboAdv.AddItem rs(0) rs.MoveNextWendEnd subno meu banco tem a tabela cliente(codigo, nome, interesse_advocacional) e a tabela advogado(nome do advogado e interesse advocacional)quero q no click do combo apareça somente os nomes do tipo do advogado escolhido pelo cliente na hora de cadastroajudaobrigado