potresti già risparmiare tempo usando una WHERE nella SELECT invece di usare

IfTrim(rsPicam("foc_tip_for").Value)=20Then