现有用户登录界面如下：

窗体中名为usemame的文本框用于输入用户名：名为pass的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为login的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”；如果用户名或密码输入错误，则给出相应的提示信息。

密码表中的字段均为文本类型，数据如下图。

单击“登录”按钮后相关的事件代码如下，请补充完整。

Private Sub login_Click()

Dim str As String

Dim rs As New ADODB.Recordset

Dim fd As ADODB．Field

Set cn=CurrentProject.Connection

logname=Trim(Me!username)

pass=Trim(Me!pass)

If Len(Nz(logname)＝0 Then

MsgBox"请输入用户名"

ElseIf Len(Nz(pass))＝0 Then

MsgBox"请输入密码"

Else

str="select*from 密码表 where 用户名＝"& logname &”，and 密码＝"'& pass &""，

rs.Open str,cn，adOpenDynamic，adLockOptimistic，adCmdText

If【 】Then

MsgBox"没有这个用户名或密码输入错误，请重新输入"

Me．usemame＝" "

Me．pass＝" "

Else

Set【 】＝rs.Fields("权限")

If fd="管理员"Then

DoCmd．Close

DoCmd．OpenForm"管理员窗体"

MsgBox "欢迎您，管理员"

Else

DoCmd．Close

DoCmd．OpenForm. "用户窗体"

MsSBox "欢迎使用会员管理系统"

End If

End If

End If

End Sub