SoloCodigo

Bueno....tienes q capturar el valor del combobox    suponiendo que el combo se llame IdPoblacion     su valor lo capturas a una variable  vIdPoblacion = IdPoblacion.value, luego ejecutas una rutina donde ejecutas una consulta que captura la variable y  luego haces una conexion a la Bd   slq = "Select  *  from TabCiudades where '" & vIdPoblacion & "' ".
y creas tu conexion cn.open slq, strConexion

y luego solo lees los registros para mostrarlo en una tabla