主题：自定义用户角色问题

Dim UserName As String = e.Form.Controls("UserName").Value

Dim UserGroup As String  = e.Form.Controls("UserGroup").Value

Dim PassWord As String = e.Form.Controls("PassWord").Value

Dim userIsRole As String = e.Form.Controls("userIsRole").Value

Dim OldUserName As String

Dim Parts() As String = e.Form.Text.Split("-"c)

OldUserName =  Parts(Parts.Length -1)

If UserName = "" OrElse UserGroup = "" Then

    Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

Dim dr As DataRow = _UserTable.SQLFind("[Name]= '" & OldUserName & "'")

If dr IsNot Nothing Then

    dr("Name") = UserName

    dr("Group") = UserGroup

    dr("Password") = PassWord

    dr("IsRole") = userIsRole

    dr.Save()

    If Forms("用户管理").Opened Then

        With Forms("用户管理").Controls("ListBox1")

            .Items(.SelectedIndex) = UserName

        End With

    End If

    e.Form.Close

Else

    Messagebox.show("更改用户失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

这是帮助自定义用户二中的代码，就可以任意更改角色了，都没问题。21楼的代码是自定义用户与权限管理一中的代码（已经附上），应该是有欠缺把？要怎么优化呢？