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

Public Function CreateXML() As Boolean
        Dim objDataSet As DataSet
        Dim intI As Integer
        Dim strPath As String
        Dim objWriter As XmlTextWriter          'create an instance of the XmlTextWriter object

        Try
            ' location to the XML file to write
            strPath = strFilePath & "\XML\" & strSessionID & ".xml"
           
            objWriter = New XmlTextWriter(strPath, System.Text.Encoding.Default)

            ' start writing the XML document
            objWriter.WriteStartDocument()

            ' write a comment in our XML file
            objWriter.WriteComment("Employee")

            ' starting with the root element i.e. "movies"
            objWriter.WriteStartElement("Menu")

            'Create dataset as per your requirement.Here xml for Employee is created.The elements are Empno,Emp_name and salary

            'Set data to XML tags
            If objDataSet.Tables(0).Rows.Count > 0 Then
                For intI = 0 To objDataSet.Tables(0).Rows.Count - 1
                    objWriter.WriteStartElement("Employee")    ' output the "Employee" element
                    objWriter.WriteElementString("EmpNo", objDataSet.Tables(0).Rows(intI).Item("EmpNo").ToString)
                    objWriter.WriteElementString("Name", objDataSet.Tables(0).Rows(intI).Item("Emp_Name").ToString)
                    objWriter.WriteElementString("Salary", objDataSet.Tables(0).Rows(intI).Item("Salary"))
                    objWriter.WriteEndElement()                 ' close "Employee" element
                Next
            End If

            ' end the "Menu" element
            objWriter.WriteEndElement()

            ' flush and write XML data to the file
            objWriter.Flush()

            Return True
        Catch ex As Exception
            Return False
        Finally
            ' clear up memory
            objWriter.Close()
            objWriter = Nothing
            objDataSet = Nothing
        End Try
    End Function