Ajuda com String SQL para combos dependentes

[mmo515]

Boa dia estou com dificuldade em acertar uma string SQL que faz a integração em 2 combobox diferentes puxando dados do access, estou caindo num loop infinito e não estou conseguindo resolver alguém pode me ajudar?. Segue codigo e as imagens das tabelas:

RS.Open "SELECT subcriterio_id, Subcriterio FROM tb_subcriterio WHERE criterio_id = " & cmb_criterio.Text & " ORDER BY Subcriterio", connection, adOpenKeyset, adLockReadOnly
        If RS.RecordCount > 0 Then
            Do Until RS.EOF
                cmb_subcriterio.AddItem RS!subcriterio_id, Subcriterio
                RS.MoveNext
            Loop
        End If

Editado Agosto 18, 2022 por mmo515
erro de digitação

[Alyson Ronnan Martins]

Boa tarde @mmo515

Não entendi a necessidade de usar VBA para adicionar um combobox com um dado do formulário.

A maneira mais simples é adicionar um combobox e nele você selecionar os dado de outra tabela.

Olha se conseguiu entender, se não conseguir posso te ajudar as 18:00.

 

Aguardo.

[mmo515]

57 minutes ago, Alyson Ronnan Martins said:

Boa tarde @mmo515

Não entendi a necessidade de usar VBA para adicionar um combobox com um dado do formulário.

A maneira mais simples é adicionar um combobox e nele você selecionar os dado de outra tabela.

Olha se conseguiu entender, se não conseguir posso te ajudar as 18:00.

 

Aguardo.

estou fazendo desta maneira porque não quero que os funcionarios tenham acesso aos dados por isso estou puxando tudo do banco de dados. Uma forma de eles não alterarem os criuterios da monitoria 

[Alyson Ronnan Martins]

Você já usou um accdr?

ou alguma maneira de segurança para seu sistema access?