那就是你系统时间、日期有问题,带星期几那种了
e.SelectString = "Select * From {ACTIVE_RECORD} Where [END_DATE] > '" & Format(EndDate,"yyyy-MM-dd") & "'"