Private Sub SaveNode(ByRef TreeNode As Telerik.WinControls.UI.RadTreeNode)
Dim con As New OleDbConnection
Dim command As New OleDbCommand
Dim trans As OleDbTransaction = Nothing
Dim RightID As Integer
Dim GroupID As Integer
Dim InsertString As String
GroupID = functions.GetInfo(connstring, "SELECT ID FROM Groups WHERE GroupName = '" & cmbProperty.Text & "'", "Group", "ID")
RightID = functions.GetNextVal(connstring, "Right")
functions.InsertWithoutMessage(con, connstring, trans, command, "INSERT INTO Rights(ID,RightName) VALUES(" & RightID & ",'" & txtRightName.Text & "')")
For Each Node As Telerik.WinControls.UI.RadTreeNode In trvForms.Nodes 'TreeNode.Nodes
InsertString = "INSERT INTO Group_Right_Forms(Group_ID,Right_ID,Form_ID,ShowRight,InsertRight,UpdateRight,DeleteRight) VALUES(" & GroupID & "," & RightID & "," & Node.Tag & "," & Node.Checked.ToString() & "," & GetPanel(Node.Tag).InsertCheck.Checked.ToString() & "," & GetPanel(Node.Tag).UpdateCheck.Checked.ToString() & "," & GetPanel(Node.Tag).DeleteCheck.Checked.ToString() & ")"
functions.InsertWithoutMessage(con, connstring, trans, command, InsertString)
For Each Child As Telerik.WinControls.UI.RadTreeNode In Node.Nodes
SaveNode(Child)
Next
Next
End Sub