Sub SendTable(ByVal dt As DataTable) Dim ctextwriter As StringWriter = New StringWriter dt.WriteXml(ctextwriter, WriteSchema) Me.SendString(ctextwriter.ToString) End Sub Sub SendString(ByVal tcString As String) Response.Clear() Response.Write(tcString) Response.End() End SubAnd don't forget:
SqlDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKeyGlenn