Imports System.Xml

Imports System.Data



Public Class Form1

    Dim dt As DataTable

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

        Dim ds As New DataSet

        dt = New DataTable()

        dt.Columns.Add(New DataColumn("Product_ID", Type.GetType("System.Int32")))

        dt.Columns.Add(New DataColumn("Product_Name", Type.GetType("System.String")))

        dt.Columns.Add(New DataColumn("product_Price", Type.GetType("System.Int32")))

        fillRows(1, "product1", 1111)

        fillRows(2, "product2", 2222)

        fillRows(3, "product3", 3333)

        fillRows(4, "product4", 4444)

        ds.Tables.Add(dt)

        ds.Tables(0).TableName = "product"

        ds.WriteXml("Product.xml")

        MsgBox("Done")

    End Sub



    Private Sub fillRows(ByVal pID As Integer, ByVal pName As String, ByVal pPrice As Integer)

        Dim dr As DataRow

        dr = dt.NewRow()

        dr("Product_ID") = pID

        dr("Product_Name") = pName

        dr("product_Price") = pPrice

        dt.Rows.Add(dr)

    End Sub

End Class