Here is the code that is causing the error in the combo box change event:

select tecdpsc.dpscscal as tecscaln, tecdep.depnum, tecdep.depname
from tecdpsc, tecdep
where tecdpsc.dpscdep = tecdep.depnum
order by tecdpsc.dpscdep, tecdpsc.dpscscal