access if语句请教

Private Sub Form_Open(Cancel As Integer)
Dim Name As String
Dim curdb As Database
Dim curRS As Recordset
Dim strSql As String

Set curdb = CurrentDb

Name = Forms!登录窗体!Combo用户名
DoCmd.Close acForm, "登录窗体"

Set curRS = curdb.OpenRecordset("select 权限 from 用户密码表 where 用户名='" & Name & "'")
Authority = curRS.Fields("权限")
End Sub

Private Sub 密码维护_Click()
'判断登录用户的权限
If Authority = "所有" Or Authority = "录入" Then
Else
DoCmd.OpenForm "密码维护窗体"
End If
End Sub
我想实现 判断登陆用户权限 只有权限=所有或者录入 才能更改密码 不知道应该怎么写
权限 数据类型是文本 字段大小是8
Private Sub 密码维护_Click()
'判断登录用户的权限
If Authority = "所有" Or Authority = "录入" Then
DoCmd.OpenForm "密码维护窗体"
Else
MsgBox "您的权限不够&quo

access if语句请教 请教EXCEL IF语句 请教VB中if 语句的一个问题 请教excel函数if的用法，语句如何编写？谢谢 请教一个jsp里的if语句的用法 请教如何用SQL语句把图片存入ACCESS数据库？ 请教一个access数据库纪录检索的sql语句 请教asp中access数据库select语句的用法 请教access里面一个sql语句的写法 Access语句替换SQL语句