ACCESS 中用DLOOKUP函数做的登陆验证。

Private Sub Command0_Click()
If IsNull(Me登陆用户) Then
MsgBox "请输入用户名！", 0 + 64, "错误警告！"""
ElseIf IsNull(Me登陆密码) Then
MsgBox "请输入密码！", 0 + 64, "错误警告！"
ElseIf Me登陆密码 <> DLookup("[密码]", "用户管理", "用户= '" & Forms!Me![登陆用户] & "'") Then
MsgBox "用户名或密码不正确，请重新输入", 0 + 64, "错误警告！"
ElseIf Me登陆密码 = DLookup("[密码]", "用户管理", "用户= '" & Forms!Me![登陆用户] & "'") Then
DoCmdOpenForm "ABC"
End If
End Sub

DLookup("[密码]", "系统密码", "[用户名]='admin'") = newpass
应该是
docmdrunsql " update 系统密码 set 密码=‘" & newpass & “’ where 用户名='admin';"

---