主题：提取自定义用户密码出错

代码改一下


If e.Button.Name="生产修改" Then
    Dim psd As String
    Dim dr As DataRow = DataTables("Users").Find("Name = '" & UserName & "'")
    If dr Is Nothing Then
        msgbox("不存在这个用户")
    Else
        InputValue(psd,"验证","请输入密码")
        If psd = dr("Password") Then
            Forms("生产修改").Open()
        Else
            Messagebox.Show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
End If