How I do serialize the data table into XML?

See more:

XML

Hi I have an issue that I have tried the MSSQL data table convert into XML format.
But I could Not do "

Error: Cannot serialize the DataTable. DataTable name is not set.

Pls advice me

Thank you

Maideen

What I have tried:

Public Function ConvertDatatableToXML(ByVal dt As DataTable) As String
    Dim str As MemoryStream = New MemoryStream()
    dt.WriteXml(str, True)
    str.Seek(0, SeekOrigin.Begin)
    Dim sr As StreamReader = New StreamReader(str)
    Dim xmlstr As String
    xmlstr = sr.ReadToEnd()
    Return (xmlstr)
End Function

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    Dim dt As DataTable = New DataTable()
    dt = GetData()
    Dim XMLstring As String = clsAPI.ConvertDatatableToXML(dt)
    Me.txtComments.Text = XMLstring

End Sub

Public Function GetData() As DataTable
    Dim dt As New DataTable
    Dim adp As New SqlDataAdapter("usp_TR_Data", conn)
    adp.SelectCommand.CommandType = CommandType.StoredProcedure
    adp.SelectCommand.CommandTimeout = 150

    With adp.SelectCommand.Parameters
        .Clear()
        .Add("@Action", SqlDbType.NVarChar).Value = "CONVERT-XML"
        .Add("@SONo", SqlDbType.NVarChar).Value = Me.txtSONo.Text
    End With
    adp.Fill(dt)
    Return dt
End Function

SQL Query
		Select 
			[sname],[saddress1],[saddress2],[scity],[spostcode],[sstate],
			[dairport],[scountry],	[detailOfContent],[weight],[productPackages],
			[dimensionX],[dimensionY],[dimensionZ],[chargeableRate],[rname],[rphone],
			[raddress1],[raddress2],[rpostcode],[rcity],[rstate],[rairport],[rcountry],
			[rremark],[rvia],[serviceModeId],[agentId],[trackingno]
		From TR_Data
		where SONo=@sono