Как добавить/обновить / удалить XML-элемент в VB.NET?

---

Как добавить узел xml-элемента при вводе значений из таких элементов управления,как textbox, combobox и т. д.
при выборе значения combobox это время необходимо обновить /удалить в / из существующих данных xml-файла.


любая помощь будет оценена по достоинству..Спасибо

Что я уже пробовал:

Private Sub btnPgAdd_Click(sender As Object, e As EventArgs) Handles btnPgAdd.Click
        'validate txtboxes later
        xmldoc1 = XDocument.Load(XMLFile)
        Dim xmls As New XElement("Page", New XElement("Title", cmbtitle.Text), New XAttribute("id", cmbtitle.Text), New XElement("MenuDescription", New XElement("ShortDesc", txtstdesc.Text), New XElement("LongDesc", txtlongdesc.Text), New XElement("Link", New XAttribute("Path", txtlink.Text), txtlink.Text)))
        xmldoc1.Element("AddPage").Add(xmls)
        xmldoc1.Save(XMLFile)
        Dim i As Integer
        For i = 0 To dtgrdPage.RowCount - 1
            If dtgrdPage.Rows(i).Cells.Item(1).Value Is Nothing Then
                With dtgrdPage
                    .Rows(i).Cells("ShortDesc").Value = txtstdesc.Text.ToString()
                    .Rows(i).Cells("Link").Value = txtlink.Text.ToString()
                End With
            End If
        Next
        cmbtitle.Text = ""
        txtstdesc.Text = ""
        txtlongdesc.Text = ""
        txtlink.Text = ""
    End Sub

это на кнопке обновления

Private Sub btnUpdate_Click(sender As Object, e As EventArgs)
        doc1.Load(XMLFile)
        Dim TitleID As String = cmbtitle.Text
        Dim ShortDesc As String = txtstdesc.Text
        Dim LongDesc As String = txtlongdesc.Text
        Dim Link As String = txtlink.Text
        Dim xmlnode1 As XmlNode = doc1.SelectSingleNode("Page")
        ' If xmlnode1 IsNot Nothing Then
        xmlnode1.ChildNodes(0).InnerText = TitleID
        xmlnode1.ChildNodes(0).InnerText = ShortDesc
        xmlnode1.ChildNodes(0).InnerText = LongDesc
        xmlnode1.ChildNodes(0).InnerText = Link
        'End If
        ' xmldoc1.Element("Page").Add(xmlnode1)
        doc1.Save(XMLFile)
    End Sub

---