vb.net datatable Serialize to json

Question

I have this kind of table:

I need to get this JSON (of course order could be any, structure/tree

Answer 1

The 'Oh-no you didn't' version:

Public Function GetJson(ByVal dt As DataTable) As String
    Return New JavaScriptSerializer().Serialize(From dr As DataRow In dt.Rows Select dt.Columns.Cast(Of DataColumn)().ToDictionary(Function(col) col.ColumnName, Function(col) dr(col)))
End Function