再次请教密码登陆问题

deven1116

我在登陆界面登陆按钮实现不了登陆了，我的密码是 用户名：abc   密码：abc

                                                                                                  11               11

                                                                                                   sale          sale

求各位帮我看看，怎么才能实现登陆。（现在问题是本来的密码显示密码错误）

一点通

以后同一问题不要另开新贴

Private Sub 用户登陆_Click()
Dim stemp As String
If IsNull(Me![密码]) Then
    MsgBox "请输入密码!", vbInformation, "输入密码"
    Me![密码].SetFocus
Else
    If IsNull(Me.Text6) Then
        MsgBox "请输入用户名!", vbInformation, "提示"
    Else
        If Me.Text6 = DLookup("用户名", "系统用户", "密码='" & [密码] & "'") Then
            Dim stDocName As String
            Dim stLinkCriteria As String
        
            stDocName = "主窗体"
            DoCmd.OpenForm stDocName, , , stLinkCriteria
   
        Else
            MsgBox "您输入的密码不正确", vbCritical, "密码错误"
            Me.Requery
            Me![密码].SetFocus
        End If
    End If
End If
exit_用户登陆_click:
Exit Sub
Resume exit_用户登陆_click:
End Sub