Set LesEnregist1 = Base_v61.OpenRecordset("
SELECT LWHS,CLOCLS,LORD,LRDTE,RCM.CNME,LPROD,LDESC,LQTIN,LQORD*LNET,LQORD,LQALL,"""","""","""",CLSTS1,CLSTS2,CLSTS3,CLSTS4,CLSTS5,ECH.HAD3, ECH.CHBCON,ECH.HSAL, ECH.HSAL2, HPO.HVDUE, HPO.PORD,HPO.PCMT,ECL.LLINE
FROM (((ECL
LEFT OUTER JOIN RCM ON (ECL.LCUST = RCM.CCUST))
LEFT OUTER JOIN ECH ON (ECL.LORD = ECH.HORD))
LEFT OUTER JOIN HPO ON (ECL.LPORD = HPO.PORD AND ECL.LPLIN=HPO.PLINE)) WHERE ((LWHS IN (" & site & ") ) AND (CLOCLS IN (" & classe & ") ) AND (CLSTS5 = 0))
ORDER BY LORD")