解决方法一：ADOrunsql改成DAOrunsql或Currentdb.Excute或Docmd.RunSQL
解决方法二：SQL中不支持Date()函数，要用GETDATE()函数 ADOrunsql "update tbl物料计划价格 Set 有效结束时间=CONVERT(VARCHAR(10),dateadd(day,-1,GETDATE()),110),已过期=1
