CONFIGURAR JSON

    <WebMethod()> _
    Public Function GetCusStomers()

        Dim JsSerializer As New JavaScriptSerializer()
        Dim constr As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\BANCO\BancoTop10.mdb[Ô]
        Dim con As New OleDb.OleDbConnection(constr)
        Dim cmd As New OleDb.OleDbCommand([Ô]select top 10 N, Produto, PLU, Qtd, Valor, Loja, Sequencia from  TbTop Order by  Sequencia Asc[Ô])
        cmd.Connection = con

        Dim customers As New List(Of TopPerdas)()

        con.Open()
        Dim sdr As OleDb.OleDbDataReader = cmd.ExecuteReader()
        While sdr.Read()
            customers.Add(New TopPerdas() With { _
                     .Produto = sdr([Ô]Produto[Ô]).ToString(), _
                     .PLU = sdr([Ô]PLU[Ô]).ToString(), _
                     .Qtd = sdr([Ô]Qtd[Ô]).ToString(), _
                     .Valor = sdr([Ô]Valor[Ô]).ToString(), _
                     .Loja = sdr([Ô]Loja[Ô]).ToString() _
                    })



        End While

        con.Close()
        Dim js As JavaScriptSerializer = New JavaScriptSerializer()
        js.MaxJsonLength = Integer.MaxValue

        [ô] Context.Response.Write(js.Serialize(customers))
        Return js.Serialize(customers)

    End Function
    Public Class TopPerdas
        Public Property Produto() As String
        Public Property PLU() As String
        Public Property Qtd() As String
        Public Property Valor() As String
        Public Property Loja() As String
      

    End Class