Serializar un DataSet a JSON

Recientemente me encontre con la necesidad en ASP.NET de serializar un DataSet para enviarlo, via AJAX, a un browser, para luego allí procesarlo convenientemente.

Un buen compañero de trabajo, Leonardo Villalva, es el autor de un código en el viejo ASP, para serializar ADO Recordset a formato JSON. Basándome en ese código arme esta clase que permite hacer la misma tarea en .NET, y aquí la publico para compartirla con ustedes.

' ------------------------------------------------------------------
' Clase   : JSONSerializer
' Autor   : Julio González
' Fecha   : 14/07/2008
' ------------------------------------------------------------------
Imports Microsoft.VisualBasic
Imports System.Data


Namespace JG
   Public Class JSONSerializer
      Public Function DataTableSerializer(ByVal dt As DataTable) As String
         Dim JsonString As New StringBuilder()
         Dim tmpR, tmpA As StringBuilder

         'el objeto no existe o no tiene filas
         If dt Is Nothing Or dt.Rows.Count = 0 Then
            Return String.Empty
         End If

         'serializo
         JsonString.Append("{")
         JsonString.Append("filas:[")
         tmpA = New StringBuilder
         For Each f As DataRow In dt.Rows
            tmpA.Append("{")
            tmpR = New StringBuilder
            For Each c As DataColumn In dt.Columns
               tmpR.Append(c.ColumnName & ":""" & f(c.ColumnName).ToString & """,")
            Next
            tmpA.Append((tmpR.ToString.Remove((tmpR.ToString.Length - 1), 1)))
            tmpA.Append("},")
         Next
         JsonString.Append(tmpA.ToString.Remove((tmpA.ToString.Length - 1), 1))
         JsonString.Append("]}")

         Return JsonString.ToString
      End Function
   End Class

End Namespace

Espero que les sea útil.