無法登錄到 MS Access 數據庫

下面是一些授權使用者登錄 MS Access 數據庫的 VBA 程式碼。我正在嘗試修復此程式碼，但我不明白此程式碼段中有什麼問題。

Private Sub cmdLogin_Click()
Dim lngUserID As Long
   lngUserID = Nz(DLookup("UserID", _
   "tblUser", "username = '" _
   & Me!cbousername _
   & "' AND Password = '" _
   & Me!txtPassword & "'"), 0)
   If lngUserID = 0 Then
       MsgBox "Username and/or password are incorrect."
       Me!txtPassword.SetFocus
   Else
       MsgBox "Registration successful!"
       OptionSetting "CurrentUserID", CStr(lngUserID)
       DoCmd.Close acForm, Me.Name
       DoCmd.OpenForm "Homepage"
   End If
     SetWebControlAsIE9
   ChangeWebControlFeature
END SUB

VBE 中的調試器顯示以下以黃色突出顯示的程式碼。有人可以幫助我了解問題所在嗎？

lngUserID = Nz(DLookup("UserID", _
   "tblUser", "username = '" _
   & Me!cbousername _
   & "' AND Password = '" _
   & Me!txtPassword & "'"), 0)

我建議您使用此連結中解釋的登錄系統，而不是從表中查找匹配的使用者名和密碼。您只需將展示數據庫中的表單和程式碼從連結導入您的數據庫。您還將獲得密碼更改表格和密碼重置選項。我在我的項目中使用了相同的方法。我還採用（建議你也這樣做）儲存加密密碼的方法來防止使用者密碼，以防數據庫被洩露。如果您在這方面也需要任何幫助，我很樂意提供幫助。

引用自：https://dba.stackexchange.com/questions/266072