My guess is you want it to be case sensitive. This is not. You can try setting the form to Option Binary, but I usually build a case sensitive function
Public Function UserFound(UserName As String, Password As String) As Boolean
Dim rs As DAO.Recordset
Dim criteria As String
Dim Msg As...