主题：[求助]加载出错

各位大侠，我做了下面的加载代码：

 

Dim d1 As Date = Date.Today
Dim d2 As Date =d1.addDays(1)

 

DataTables("入库记录表").loadfilter="入库日期 >= #" & d1 & "# And 入库日期 <= #" & d2 & "#"
DataTables("入库记录表").load()

DataTables("入库记录表").loadfilter="出库日期 >= #" & d1 & "# And 出库日期 <= #" & d2 & "#"
DataTables("出库记录表").load()

DataTables("物料信息表").load()

 

不知为什么提示至少一个参数没有指定值？

 

请大侠们帮忙指点一下，非常感谢！！！