有一个程序在一个房间的几台电脑上运行出现问题（其余房间正常），做 多月未安检等筛选查询时出现下面提示

此主题相关图片如下：错误提示.jpg

多月未安检 组合框 changecommitted事件代码为

Dim dt As Date

\'尝试将组合框的内容转换为整数,成功则计算截止日期..

If Integer.Tryparse(e.ComboBox.text, Vars("Months")) Then
    dt = Today.AddMonths(- Vars("Months"))
End If
Tables("公服用户表信息").filter = "[上次安检日期] < #" & dt & "#"

可能是什么原因？

这个房间电脑网络配置和其它电脑、服务器在同一个网段，电脑软硬件配置也一致。

谢谢老师

改成短日期，问题已解决

谢谢大红袍老师！

我再问一句，能不能在程序里解决这个问题，比如写上几句话。