vc vai ter q fazer uma sql com o item selecionado na combo 1 por exemplo:

 

Private sub cbo_secao_Click()

set RSTemp =  conexaoADO.Execute("Select Setor From Tabela where Secao = '" & cbo_secao.text & "'")

 

cbo_setor.clear  'limpa a combo

Do while not RSTemp.EOF

   cbo_Setor.AddItem RSTemp(0)
   RSTemp.Movenext

LOOP

End Sub

 

Ok?? Se eu errei alguma propriedade me desculpa... tô sem vb...

 

qq coisa é só postar

 

t+