Sql query result differs between ssms and VB.NET code!

See more:

VB

SQL

I use the following query in ssms, it will show the given result but I use this query in vb.net coding it will show different result. I want the ssms result.

select unit_name, Unit_PrintName from unit_table for xml path('customer'), root('erpimportdata')


<erpimportdata>
<customer>
<unit_name>Doz > & A
<unit_printname>Doz

<customer>
<unit_name>Abc
<unit_printname>Abc

<customer>
<unit_name>Zzzzzzzz
<unit_printname>Zzzzzzzz

<customer>
<unit_name>Nos
<unit_printname>Nos




RESULT OF VB.NET CODE.
<?xml version="1.0" standalone="yes"?>
<newdataset>

<xml_f52e2b61-18a1-11d1-b105-00805f49916b><erpimportdata><customer><unit_name>Doz &gt; &amp; A</unit_name><Unit_PrintName>Doz</Unit_PrintName></customer><customer><unit_name>Abc</unit_name><Unit_PrintName>Abc</Unit_PrintName></customer><customer><unit_name>Zzzzzzzz</unit_name><Unit_PrintName>Zzzzzzzz</Unit_PrintName></customer><customer><unit_name>Nos</unit_name><Unit_PrintName>Nos</Unit_PrintName></customer></erpimportdata>



What I have tried:

Dim ldb As New kgmtools.clsDB
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim sql As String
    sql = "select unit_name, Unit_PrintName from unit_table for xml path('customer'),  root('erpimportdata')"


    ldb.OpenDB("kgmmurugesh\kgmexpress", "kgmerp_abc")
    Writetoxml(ldb, sql, "d:\storesdata.xml")
    End

End Sub



Private Sub Writetoxml(ByVal pdb As kgmtools.clsDB, ByVal pstrquery As String, ByVal pstrfilename As String)
    Try

        Dim ldataset As New DataSet
        Dim ldataadapter As SqlDataAdapter


        ldataadapter = New SqlDataAdapter(pstrquery, pdb.DBConnect)
        ldataadapter.Fill(ldataset)
        ldataset.WriteXml(pstrfilename)

    Catch ex As Exception
        MsgBox(ex.Message.ToString)
    End Try
End Sub