Imports System.Xml

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim xmlFile As XmlReader

        xmlFile = XmlReader.Create("Product.xml", New XmlReaderSettings())

        Dim ds As New DataSet

        Dim dv As DataView

        ds.ReadXml(xmlFile)

        dv = New DataView(ds.Tables(0), "Product_price > = 3000", "Product_Name", DataViewRowState.CurrentRows)

        dv.ToTable().WriteXml("Result.xml")

        MsgBox("Done")

    End Sub

End Class