Help with excel vba form sql cascade comboboxes

I think you want this:

sql = ""
sql = sql & "SELECT subcriterio_id, " & vbCrLf
sql = sql & "       Subcriterio " & vbCrLf
sql = sql & "FROM   tb_subcriterio AS sc " & vbCrLf
sql = sql & "       INNER JOIN tb_criterios c " & vbCrLf
sql = sql & "               ON sc.criterio_id = " & cmb_criterio.Text & vbCrLf
sql = sql & "ORDER  BY Subcriterio"