主题：错误 提示 求解

Dim rq As Date 

 With e.Form.Controls("生产日期") 

 rq = e.Form.Controls("生产日期").Value

 End With 

 Tables("生产记录表").Filter = "[生产日期] = #" & rq & "# " 

 按钮代码

 实在是弄不懂了， 

 我在我开发版的电脑上面试，没有问题 到了使用者的电脑中

，出现这个错误提示 找了很多原因，都不知道为什么，求助一下。