请老师们帮忙修改一个登陆窗体

想要在登陆成功后自动打开相应的窗体，如用户名是张三则打开窗体1，是李四就打开窗体2，我是新手，请帮忙修改一下，谢谢

Private Sub 登录_Click()

    If IsNull(用户名) Then
        MsgBox "用户名不能为空，请重新选择！", vbExclamation + vbOKOnly, "提醒您！"
        Me.用户名.SetFocus
    Else
        If IsNull(密码) Then
            MsgBox "注意，您忘了输入密码！", vbExclamation + vbOKOnly, "提醒您！"
            Me.密码.SetFocus
        Else
            If Me.密码.Value = DLookup("密码", "UserList", "[姓名]= '" & Me.用户名.Value & "'") Then
                MsgBox "登录成功！", vbExclamation, "提醒您"
                DoCmd.Close
                DoCmd.OpenForm "窗体1"
            Else
                MsgBox "您输入的密码有误，请核对后重新输入！", vbExclamation + vbOKOnly, "提醒您！"
                Me.密码 = Null
                Me.密码.SetFocus
            End If
        End If
    End If
End Sub


Private Sub 退出_Click()
    DoCmd.Quit
End Sub


Private Sub 用户名_AfterUpdate()
    Me.密码.SetFocus
    Me.职务 = DLookup("职务", "UserList", "[姓名]= '" & Me.用户名.Value & "'")
End Sub


Private Sub 注册_Click()
DoCmd.OpenForm "注册"
End Sub

Private Sub 登录_Click()
    If IsNull(用户名) Then
        MsgBox "用户名不能为空，请重新选择！", vbExclamation + vbOKOnly, "提醒您！"
        Me.用户名.SetFocus
    Else
        If IsNull(密码) Then
            MsgBox "注意，您忘了输入密码！", vbExclamation + vbOKOnly, "提醒您！"
            Me.密码.SetFocus
        Else
            If Me.密码.Value = DLookup("密码", "UserList", "[姓名]= '" & Me.用户名.Value & "'") Then
                MsgBox "登录成功！", vbExclamation, "提醒您"
                If Me.用户名 = "张三" Then
                    DoCmd.OpenForm "窗体1"
                End If
                If Me.用户名 = "李四" Then
                    DoCmd.OpenForm "窗体2"
                End If
                DoCmd.Close acForm, Me.Name
            Else
                MsgBox "您输入的密码有误，请核对后重新输入！", vbExclamation + vbOKOnly, "提醒您！"
                Me.密码 = Null
                Me.密码.SetFocus
            End If
        End If
    End If
End Sub