Help with excel vba form sql cascade comboboxes

    Good afternoon, I'm having trouble getting a SQL string that integrates into 2 different comboboxes by pulling data from access, I'm falling into an infinite loop and I'm not able to solve it, can anyone help me?. Here is the code


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

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login