主题：总提示“未找到日期列”

Dim data1 as Data = #11/01/2014#

Dim va as Double =  DataTables("考勤表").Compute("Sum(考勤情况)","[日期] >= data1")

 表如下：

此主题相关图片如下：qq浏览器截屏未命名.png

调试命令报故信息如下：

此主题相关图片如下：q1.png

怎么解决呢？