Σφάλμα σε κώδικα

[Dimitriss]

Καλησπέρα και Καλή Χρονιά σε όλους! Για ακόμη μια φορά θα ήθελα την βοήθεία σας.Με τον παρακάτω κώδικα ουσιαστικά διαχωρίζω τι μπορούν οι διαφοροι χρήστες στη βάση μου, ομως μου βγάζει error 94 στο DLookup("UserSecurity", "tblUser", "[UserID]=" & InfoUser). Που κάνω λάθος;

Private Sub Insert_Click()
Dim InfoUser As String
Dim SecLevel As String
        InfoUser = Forms![MainMenu]![Level]
        SecLevel = DLookup("UserSecurity", "tblUser", "[UserID]=" & InfoUser)

     If SecLevel = 1 Then
        DoCmd.Close acForm, "MainMenu", acSaveNo
        DoCmd.OpenForm "InsertMenu"
        DoCmd.Maximize
        Forms![InsertMenu]![Level] = InfoUser
        Exit Sub
    ElseIf SecLevel = 2 Then
        DoCmd.Close acForm, "MainMenu", acSaveNo
        DoCmd.OpenForm "InsertMenu"
        DoCmd.Maximize
        Forms![InsertMenu]![Level] = InfoUser
        Exit Sub
    ElseIf SecLevel = 3 Then
        MsgBox "Access denaid!", vbOKOnly, "MS Office"
        Exit Sub
    Else
        MsgBox "Application shut Down!", vbCritical, "MS Office"
        Application.Quit
        Exit Sub
    End If
    
End Sub

Ευχαριστώ!