SQL将access中保存的日期与今天不起作用的日期进行比较

我正在尝试运行一个查询，作为VBA代码的一部分，它查看日期字段中包含今天日期的所有记录，并将它们写入记录集。但是，下面的SQL语句不起作用。 它不会返回任何记录，即使DateEntered字段中定义有今天日期的记录

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim SQL as string
SQL = "SELECT * FROM tbl1LinkAuths WHERE DateEntered = #" & Date & "# "
Debug.Print SQL
cn.Open cnDB
rs.Open SQL, cn, , adLockPessimistic

---

我一直在使用这种形式的数据库连接，它适用于代码中的其他查询，只是日期识别有问题。

您有几个选项：

SQL = "SELECT * FROM tbl1LinkAuths WHERE DateEntered = Date()"

或：

---

至少使用BuildCriteria来形成日期/时间SQL=SELECT*FROM tbl1LinkAuths的正确格式，其中&BuildCriteriaDateEntered、dbDate、DateDate的格式根据存储它们的服务器而异。您是否尝试过在没有日期匹配的情况下获取前10条记录，并通过MsgBox将显示的日期与VBAIs DateEntered having time部分中输入的日期字段进行比较？可能，您的日期存储了不同的时间，而您尝试比较的日期根本没有时间，或者反之亦然，SQL=SELECT*FROM tbl1LinkAuths WHERE DateEntered=Date起了作用。真不敢相信事情竟如此简单。我一直在尝试各种日期转换组合。非常感谢你。

Dim DateToday As String
DateToDay = Format(Date, "yyyy\/mm\/dd")
SQL = "SELECT * FROM tbl1LinkAuths WHERE DateEntered = #" & DateToDay & "# "