主题：定义日期无法引用

是不是应该这样？

Dim d1 As Date
Dim d2 As Date
d1 = today.adddays(-day(Today)) '定义本月初
d2 = today.adddays(-day(Today)).adddays(-day(today.adddays(-day(Today)))) '定义上月初

If e.DataCol.name ="原料代码" Then     '则累计原辅料入库表中同代码原辅料总的入库量,然后赋值给变动行的数量列
  e.DataRow("当月入库kg") = DataTables("原辅料入库").Compute("Sum(实收数量)","[原料代码] = '" & e.NewValue & "'And [日期] >= #" & d2 & "# And [日期] <= #" & d1 "#")
End If