lcInstruction = "Update clients set date_payment = '" + ;>DTOS(ldDatePay) + " " + TTOC(ldDatePay, 2) + "' where codCli = ..."