Preencher combo box conforme dados escolhidos em uma tabela, indicando o informação referente

Bom dia, tenho uma tabela que tem os seguintes campos: CNAE e OCUPACAO.

Tenho das combo box, um com os CNAE´S  e outra com as OCUPAÇÕES, o que não estou conseguindo fazer é, ao selecionar um CNAE NA 1ª combo box , ele já direcione para a 2ª combo box e de foco na OCUPAÇÃO correspondente ao CNAE escolhido.

eu consegui preencher as combo box com as informações que quero, porem não consigo fazer o direcionamento para a informação escolhida.

coloquei seguinte código abaixo, ele direciona para o campo, porém não relacionaas informações.

Private Sub cbocnae_AfterUpdate()

cboocupacao.SetFocus
cboocupacao.RowSource = "select tbOcupacoes.CNAE FROM tbOcupacoes where tbOcupacos.OCUPACAO"
cboocupacao.Requery

End Sub

peço ajuda para solucionar este problema.

Bom dia,

em: where tbOcupacos.OCUPACAO, não foi informado o criterio de relação.
Pois deveria ser algo do tipo:  where tbOcupacos.OCUPACAO = SeuCritério.

entendi, mas poderia me ajudar na montagem do critério?

O campo OCUPACAO, na tabela, precisa ter qual informação para ser incluída no critério? E qual é o tipo de dados do campo OCUPACAO?

Amigo, não estou conseguindo compreender bem, mas postei uma foto da tabela para que me ajude a montar a consulta.

Para facilitar, poste o banco, caso seja possível.

segue imagem do banco.

segue outra imagem do banco

Tente assim:

cboocupacao.RowSource = "select CNAE FROM tbOcupacoes where OCUPACAO='"& me.SuaCombo1 &"'"


se não der, poste o aplicativo se for possível.