ник: ГлазастыйМышь
PolPmntStr = "Update POLICY_PAYMENT set BILL_ID=" & BILL_ID & " where ID in " & _
"(SELECT PP.ID FROM POLICY AS P LEFT JOIN POLICY_PAYMENT AS PP ON P.ID = PP.POLICY_ID WHERE " & _
"(((PP.DATE_DUE)>" & cLng(NwBillFr.Text7) & ") And (PP.DATE_DUE)<" & cLng(NwBillFr.Text2) & " And ((P.INSURER_ID) = " & NwBillFr.Combo0.Value & ") And ((PP.BILL_ID) = 0)))"