请指点一下

rivate Sub 用户登录_Click()
Dim STemp As String
    If IsNull(Me![用户编号]) Then
        MsgBox "请输入'用户编号'！", vbInformation, "输入用户编号"
        Me![用户编号].SetFocus
    Else
    If IsNull(Me![密码]) Then
        MsgBox "请输入'密码'！", vbInformation, "输入密码"
        Me![密码].SetFocus
    Else
       STemp = DLookup("密码", "用户表", "用户编号 = '" & Me![用户编号] & "'")
       用户名 = DLookup("用户名", "用户表", "用户编号 = '" & Me![用户编号] & "'")
        If IsNull(STemp) Then
            DoCmd.Close , , acSaveNo
        Else
            '判断输入的"密码"与从"系统用户"数据表中搜索出的值是否相等
            If CStr(Me![密码]) = STemp Then
                用户编号 = Me![用户编号]
                DoCmd.Close , , acSaveNo
                DoCmd.OpenForm "系统界面", acNormal, , , acReadOnly, acWindowNormal

            Else
                MsgBox "您输入的密码不正确！", vbCritical, "密码错误"
                Me.Requery
                Me![密码].SetFocus
            End If
        End If
    End If
    End If
Exit_用户登录_Click:
    Exit Sub
Err_用户登录_Click:
    MsgBox Err.Description
    Resume Exit_用户登录_Click
End Sub
以上代码什么地方有错呢，不能判断密码是正确的 --------------------编程问答-------------------- 自己跟踪查询代码

补充：.NET技术 ,  VB.NET