Dim dr As DataRow
Dim r2 As Row
dr = DataTables("Team_Users").Find("Name = '& _UserName &'")
If dr isnot thing andalso dr.isnull("PermissionValue") = False then
Dim s As String = dr("PermissionValue")
For i As Integer=0 To s.length-1
r2 =Tables("System_Permission").rows(i)
if r2 isnot nothing then
r2("Permission") = s(i)
End if
Next
End if