请高手帮忙看看，这语句错在了哪里啊？

sxgaobo

        DoCmd.RunSQL "UPDATE 事业增减记录 SET 事业增减记录.增减记录 = [增减记录] & [Forms]![增加人员]![姓名] & '、' WHERE (((事业增减记录.ID)=DMax('[ID]','[事业增减记录]','[经费形式]=form.[经费形式] and [单位编号]=form.[单位编号] and [调整日期]=date() and Left([增减记录], 1) = '增'')))"