如果是sqlserver数据源,就改一下
g.Filter = "[首次检测_检测时间] = #" & rq & "#"
改成
g.Filter = "[首次检测_检测时间] = '" & rq & "'"