serialize datatable met bindingsource omzetten met NewtonSoft

{  "Id": "",
  "Name": "",
  "ExternalId": "",
  "Headers": [
    {
      "Name": "",
      "DisplayAt": ""
    }
  ],
  "Rows": [
    "Array[string]"
  ],
  "NewRows": [
    "Array[string]"
  ],
  "DeletedRows": [
    "Array[string]"
  ],
  "CompanyId": 0,
  "IntegrationKey": ""
}

Imports Newtonsoft.Json

Namespace Models


    Public Class Header


        <JsonProperty("Name")>
        Public Property Name As String


        <JsonProperty("DisplayAt")>
        Public Property DisplayAt As String
    End Class


    Public Class DataSource


        <JsonProperty("Id")>
        Public Property Id As String


        <JsonProperty("Name")>
        Public Property Name As String


        <JsonProperty("Headers")>
        Public Property Headers As Header()


        <JsonProperty("Rows")>
        Public Property Rows As String()()


        <JsonProperty("TotalRows")>
        Public Property TotalRows As Integer


        <JsonProperty("LastUpdated")>
        Public Property LastUpdated As DateTime


        <JsonProperty("CompanyId")>
        Public Property CompanyId As Integer
    End Class


    Public Class Category


        <JsonProperty("DataSource")>
        Public Property DataSource As DataSource
    End Class


End Namespace

json = JsonConvert.SerializeObject(td, Formatting.Indented)