where 条件加一个条件
where 日期=max(日期)
========================
SQL("FRDemo", "SELECT TM014 FROM PURTM WHERE 日期字段=max(日期字段) and [TM004]= '" + A2 + "'", 1, 1)