一、学友问题描述：
爱好者:长沙--财务成思泽(543326265)  09:49:52
请教老师：请问我这个更新查询为什么不能检索出日期数据？VBA代码如下：
Dim qdf As Object
Set qdf = CurrentDb.QueryDefs("YJDateQuery")   '更新查询
qdf.sql = SelSr
SelSr= "Select * From YjDate Where 发票开具时间 = #2023/4/12#"

二、解决方法：
      单看语法是没问题的，出错的地方是日期分隔有问题，将 / 符改成 - 即可，以及需要把月份补齐到两位数，默认1位数的月份，则前面补齐0，即可为标准的日期数据，修改后问题解决，代码如下：
SelSr= "Select * From YjDate Where 发票开具时间 = #2023-04-12#"

补充说明:
VBA代码写法中，建议使用到日期数据的，将日期分隔符格式统一用短横线 - 这种标准日期格式分隔符，避免引起一些非代码语法问题引起的错误。