Imports Newtonsoft.Json

	Private Function GetCustomer() As String

		Dim retVal As String = ""
		Dim ds As DataSet = DAL.Customer.GetCustomers

		If ds IsNot Nothing AndAlso ds.Tables(0).Rows.Count > 0 Then

		Dim custList As New List(Of Hashtable)()

		For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
			 Dim ht As New Hashtable()
			 Dim row As DataRow = TryCast(ds.Tables(0).Rows(i), DataRow)
			 ht("IDCustomer") = Convert.ToString(row("IDCustomer"))
			 ht("CustomerName") = Convert.ToString(row("CustomerName"))
			 custList.Add(ht)
		Next

		retVal = JavaScriptConvert.SerializeObject(custList)

		End If

		Return retVal

End Function

Output yang dihasilkan adalah sebagai berikut (setelah dirapikan):

[
{"IDCustomer":"1","CustomerName":"Unyil"},
{"IDCustomer":"2","CustomerName":"Cuplis"},
{"IDCustomer":"3","CustomerName":"Ableh"}
]