Boa tarde precisao de ajuda estou criando uma aplicação com excel vba + access e não estou conseguindo fazer 2 combos interegirem entre si o objetivo é ao escolher umc rtierio em um combobox aparecer seus subcriterios no outro combobox como se fosse estado e cidade porem ele não está carregando e ao depurar o copdigo eu caio numk loop infinito, alguém pode me ajudar segue abaixo o codigo e as imagens das tabelas

Sub carregar_subcriterio()
On Error GoTo ERRO
        On Error Resume Next
        cmb_subcriterio.Clear
        Set RS = New ADODB.Recordset
        Ferramentas.conectarDB
        RS.Open "SELECT Subcriterio FROM tb_subcriterio WHERE criterio_id = " & cmb_criterio.Text & " ORDER BY criterio_id ASC", connection, adOpenKeyset, adLockReadOnly
        If RS.RecordCount > 0 Then
            Do Until RS.EOF
                cmb_subcriterio.AddItem RS!Subcriterio
                RS.MoveNext
            Loop
        End If
        If Not RS Is Nothing Then
            RS.Close
            Set RS = Nothing
        End If
        Ferramentas.desconectarDB
     Exit Sub
ERRO:
    MsgBox "Erro de conexão", vbCritical, "ERRO"
End Sub

https://drive.google.com/file/d/1nAOPvog2CeRcnA8ajWFNNBw1zZPZfqBV/view?usp=sharing

https://drive.google.com/file/d/1M_Tdpb-KUnIfr5hJQOUjAVlYDGwficPg/view?usp=sharing

https://drive.google.com/file/d/1DjXrxdcmBrPKfoMxbnR2OkPjNvO4TgeE/view?usp=sharing