if DiferenciaEntreFechas<0 then rsForums.addnew rsForums("Novedades")=False rsForums.Update end if