主题：[求助]帮助中自定义登录 的问题！

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 = "Select * From {Users} Where [Name] = '" & UserName & "'"

dt = cmd.ExecuteReader

If dt Is Nothing Then

    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

Else

    dr = dt.DataRows(0)

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

        _UserName = UserName

        _UserGroup = dr("Group")

        e.Form.Close

    Else

        Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    End If

End If