Access中的登录表单

Question

Option Compare Database

Private Sub Command1_Click()
Dim UserLevel As Integer
If IsNull(Me.txtLoginID) Then
    MsgBox "Please enter LoginID", vbInformation, "LoginID Required"
    Me.txtLoginID.SetFocus
ElseIf IsNull(Me.txtPassword) Then
    MsgBox "Please enter Password", vbInformation, "Password Required"
    Me.txtPassword.SetFocus
Else
    'process the job

    If (IsNull(DLookup("UserLogin", "tbluser", "UserLogin='" & Me.txtLoginID.Value & "'"))) Or _
    (IsNull(DLookup("UserLogin", "tbluser", "Password='" & Me.txtPassword.Value & "'"))) Then
        MsgBox "Incorrect LoginID or Password"
    Else
        UserLevel = DLookup("UserSecurity", "tbluser", "UserLogin = '" & Me.txtLoginID.Value & "'")
        DoCmd.Close
            If UserLevel = 1 Then
        MsgBox "LoginID and Password correct"
                DoCmd.OpenForm "ali"
        Else
                DoCmd.OpenForm "customer"
        End If
    End If

    End If

End Sub

这是登录表单的代码。我创建了。当我关闭我的MS Access并再次打开时，我的项目登录表单无法正常工作。