Ms access Access 2016 VBA。FindFirst未在记录集中找到记录

我是编程新手，我正在尝试写一些VBA代码。我一直在搜索各种网站和论坛，以帮助我实现我的最终目标，即拥有一个代码，该代码将循环通过一个记录集，并更新与表单上找到的3个标准列表框匹配的相应记录。这些值传递到同一表单上的文本框中，我可以在其中编辑它们的值

当前的问题是，即使记录在记录集中，我仍会收到“不匹配”消息框。我在白天找BC2。不幸的是，我在搜索的网站和论坛上没有发现类似的问题。在此问题上的任何帮助或帮助我实现我的最终目标都将不胜感激！以下是迄今为止我所掌握的代码。代码下面有一个指向记录图片的链接

Private Sub cmdSave_Click()
    Set db = CurrentDb
    Set rs = db.OpenRecordset("LLT_TblDayInfo", dbOpenDynaset, dbSeeChanges)

    Dim strLookupValue1 As String
        strLookupValue1 = "[Day]= " = Me.lstDay.Value
    rs.FindFirst (strLookupValue1)
        If rs.NoMatch Then
            MsgBox "no records found"
        Else
            Do While Not rs.NoMatch
                MsgBox "i found it!!!"
                rs.FindNext (strLookupValue1)
            Loop
            rs.FindNext (strLookupValue1)
        End If
End Sub

---

要做的第一件事是使用正确的语法引用文本值：

strLookupValue1 = "[Day] = '" & Me!lstDay.Value & "'"

---

日期的数据类型是数字还是文本？如果文本需要添加古斯塔夫建议的单引号，感谢您的回复。我现在意识到我需要弄清楚我正在使用的数据类型。就是这样！我花了好几天寻找解决办法。我有很多东西要学。谢谢你的帮助！！