SELECT ( alguem)

[vanrownd 0]

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

[Luizgrs 0]

Veja se dessa maneira funciona, vou por nomes genéricos pois ñ sei os nomes das suas tabelas:

select nome_advogado from tabela_advogados where tipo_advogado in (select tipo_advogado_escolhido_cliente from tabela_cliente where codigo = codigo_digitado)

[vanrownd 0]

oh my GOD!!!!você salvo minha nota em VBkra valew...deus te pague :D :D:D:D