为什么我收到 dbSeeChanges 错误

Question

我将访问数据库转换为 ODBC 后端，我需要将 dbSeeChanges 添加到代码行中，但是当我添加代码时，我在登录屏幕上遇到另一个错误错误 3001 无效参数

这是我使用的代码，我绝对不是专业的编码人员，我只是想自学如何编码，我正在修改。

Private Sub cmdLogin_Click()

    On Error GoTo cmdLogin_ClickErr
    
    If Len(Me.txtUserName) = 9 And Len(Me.txtPassword) = 1 Then
        TempVars.Add "UserName", "Developer"
        TempVars.Add "Password", "1"
        TempVars.Add "Admin", "-1"
    Else
        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("Select * From TLKPeople Where Username =  '" & Me.txtUserName & "' And Password = '" & Me.txtPassword & "'", dbSeeChanges)
        If Not rs.EOF Then
            TempVars.Add "UserName", rs!UserName.Value
            TempVars.Add "Password", rs!Password.Value
            TempVars.Add "Admin", rs!Admin.Value
            TempVars.Add "ReadOnly", rs!ReadOnly.Value
            TempVars.Add "StdUser", rs!STDUser.Value
            TempVars.Add "OpsUser", rs!OpsUser.Value
        Else
            MsgBox "Your login as failed!", vbOKOnly, "Login Failed"
            Exit Sub
        End If
    End If

End Sub

Answer 1

Password是一个保留字是AccessSQL，所以：

Set rs = CurrentDb.OpenRecordset("Select * From TLKPeople Where Username = '" & Me.txtUserName & "' And [Password] = '" & Me.txtPassword & "'", dbOpenDynaset, dbSeeChanges)

为什么我收到 dbSeeChanges 错误

why am I getting an error with dbSeeChanges

ms-access

vba