Untitled

Imports System.IO
Imports System.Data
Imports System.Xml

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try
            Dim xmlDatadoc As XmlDataDocument = New XmlDataDocument()
            xmlDatadoc.DataSet.ReadXml("news_google.xml")
            Dim ds As DataSet = New DataSet("Google DataSet")
            ds = xmlDatadoc.DataSet
            DataGridView1.DataSource = ds.DefaultViewManager
            DataGridView1.DataMember = "item"
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Problem loading XML")
        End Try

    End Sub

    Private Sub addNewRowButton_Click(ByVal sender As Object, _
        ByVal e As EventArgs) Handles btnAdd.Click

        Me.DataGridView1.Rows.Add()

    End Sub

    Private Sub deleteRowButton_Click(ByVal sender As Object, _
        ByVal e As EventArgs) Handles btnDelete.Click

        If Me.DataGridView1.SelectedRows.Count > 0 AndAlso _
            Not Me.DataGridView1.SelectedRows(0).Index = _
            Me.DataGridView1.Rows.Count - 1 Then

            Me.DataGridView1.Rows.RemoveAt( _
                Me.DataGridView1.SelectedRows(0).Index)

        End If

    End Sub


End Class