Visual Basic - Problemas al meter un recordset a un DataCombo

Hola foro miren tengo este problema...
cadena de consulta SQL:
stringA_1 = "select nombre from TGerenteS a inner join TAreas b on a.id_area = b.id_area where b.area = '" & Trim(cmb_areas.Text) & "'"

Call ConexionDB

Cursores rstArea, stringA_1, cnn
Set cmb_gerenteSoD.RowSource = rstArea
cmb_gerenteSoD.DataField = nombre
Set rstArea = Nothing

pero no me regresa nada de registros... creo tener todo bien..

Tal ves tu cadena de conexion no este bien, prueba con esto:
stringA_1 = "select nombre from TGerenteS a ,TAreas b Where a.id_area = b.id_area where b.area = '" & Trim(cmb_areas.Text) & "'"