First, you need to extract the DataTable holding your rows from your DataSet: Dim dt As DataTable dt = MyDataSet.Tables("Customers") Then create a JsonServializer: Dim js As JsonSerializer js = ...