I put this code on the "after update" event, and when error occurs I tried to create new textbox and put this formula also but with the same error result:
DLookup("[OrderDate]", "[OrderTable]", "ProductID=Forms!NewOrder_Form.ProductID AND DateDiff("m",[OrderDate], Date()) < 3")