无法比较日期访问

Question

我是Access的新手，在比较SQL查询中的日期时遇到了麻烦。我似乎无法解决此问题。如果只输入这样的日期，它就可以正常工作：

Dim SendTo as string, strSQL as string

DateF = Me.txtDate.value

strSQL = "UPDATE [" & Team & "] SET [" & Init & "] = '" & SendTo & "' WHERE Date = #2020-01-06#;"

我希望日期是用户窗体上的文本框设置的变量，如下所示：

strSQL = "UPDATE [" & Team & "] SET [" & Init & "] = '" & SendTo & "' WHERE Date = DateF"

DoCmd.RunSQL strSQL

当我这样做时，会出现一个弹出框，显示“输入参数值”