如何窗体添加某一字段的填写设置权限验证

Private Sub Command确定_Click()
DoCmd.SetWarnings False
If Nz([TEXT密码]) = Nz(DLookup("[信息]", "表1", "信息=" & "'" & Me.TEXT密码 & "'")) Then
MsgBox "密码通过验证"
DoCmd.RunSQL "update 表1 SET  是否上传= -1 WHERE 信息=" & "'" & Me.TEXT密码 & "'"
Else
MsgBox "密码没有通过验证"
End If
DoCmd.SetWarnings True
End Sub