Login Form with Multi user login

[lgoddgreat]

Hi I have this project currently on going and I'm stack in the login form, I've done most of the part but still i cant seem to find a solution to this part.

the login form has 2 Textbox and 1 Combobox (usernameTB, passwordTB, userTypeCB) im finish with the part of comparing the username and the password whether the two match in my table, but what i cant seem to do is compare whether the user type(Administrator, Standard User) match the datas in the table.

HERE is my code so far and whenever I try to login using this codes it keeps on telling me "Run-time error '2471': The expression you entered as a query parameter produced this error: 'Administrator' (TAKE NOTE that the value's in the userTypeCB are "Administrator" and "Standard User"

one last thing, this isnt the complete code because this is a copy my project that im working on, i made a diff. copy so that i could do whatever i want without the harm of totally ruining the whole project. Any help would be appreciated. Thanks!

Private Sub signinBTN_Click()
 
Dim adminType As String
Dim userType As String
 
If IsNull(Me.usernameTB) Then
    MsgBox "Please enter a username", vbInformation, "Need Username!"
        Me.usernameTB.SetFocus
    Exit Sub
End If
 
If IsNull(Me.passwordTB) Then
    MsgBox "Please enter a password!", vbInformation, "Need Password!"
        Me.passwordTB.SetFocus
    Exit Sub
End If
 
 
If Nz(DLookup("Password", "UserINFO", "Username = '" & Me.usernameTB & "'"), "GarbageEntry") = Me.passwordTB Then
 
    MsgBox "User Found!", vbOKOnly
 
    If Me.passwordTB.Value = DLookup("Password", "userINFO", "ID =" & Me.userTypeCB.Value) Then
 
    ID = Me.userTypeCB.Value
 
    MsgBox "password and user type match!"
 
    Else
 
    MsgBox "they dont match!"
 
    End If
 
Else
    MsgBox "Incorrect Username or Password"
 
        Me.usernameTB = ""
        Me.passwordTB = ""
        Me.usernameTB.SetFocus
 
End If
End Sub

[lgoddgreat]

No need to answer my question, I've already solved it, the problem is with my data field "User Type" it seems Access VBA wont allow any space in the Dlookup method. Tried to remove the "space" in the data field and it worked. :)

[zmbd]

Certainly Dlookup will allow this, you have to properly format the string.

It also appears that you also did not include the section of the code that has that Dlookup...

[NeoPa]

If you have a reference that includes a space in it, which is never a good idea, then you can put square brackets ([]) around the string value to get it to be recognised almost anywhere in Access, and most other databases too.

[lgoddgreat]

If Nz(DLookup("UserType", "userINFO", "Username = '" & Me.usernameTB & "'"), "GarbageEntry") = Me.userTypeCB Then

this is the line that has space on it, it should be in line 24, forgot to add it. The one that has the space is the data field "UserType" it used to be "User Type", dunno why it worked when i removed the space in between, but im happy now that it did.

[lgoddgreat]

Thank you for that tip NeoPa, ill always remember it.