Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "S elect * From {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader

If dt.DataRows.Count = 0 Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = dt.DataRows(0)

If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserPessWord = dr("PassWord")

end if

    If _UserPessWord = "123456" Then
        Messagebox.show("密码为初始密码,非常不安全,请修改用户密码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Forms("修改密码").open
        Forms("修改密码").Controls("name").text = e.Form.Controls("UserName").text
        Forms("修改密码").Controls("OP").text = e.Form.Controls("PassWord").text
        Exit Sub
    Else
        e.Form.Controls("But登录服务器").performclick
        e.Form.Close
    End If