select distinct top 10 UnitID, Name from tblUnit where ID>5 order by Name

public DataTable GetDataTable(Engine mEngine, string queryString, string tableName)
{
	DataSet ds = new DataSet();
	SqlDataAdapter adapter = new SqlDataAdapter(queryString, mEngine.DataService.Setup.ConnectionString);
	adapter.Fill(ds, tableName);
	ds.Tables(0).Load(ds.CreateDataReader(), LoadOption.OverwriteChanges);
	return ds.Tables(0);
}

myDataTable = GetDataTable(mEngine, "select CatalogueID, Name from tblCatalogue", "tblCatalogue");

Dim items = From v In ef.tblCatalogue
            Where v.CatalogueID = 2
            Select v.CatalogueID, v.ClassificatorID, v.Code, v.Name
Dim json As String = New JavaScriptSerializer().Serialize(items.ToList())

    Private Function Serialize2JSON(ByVal objInput As Object) As String
        Dim jss As New JavaScriptSerializer()
        Return Regex.Replace(jss.Serialize(objInput), "(,?)""\w+"":(null|false|0|"""")(,?)(\}?)", New MatchEvaluator(AddressOf ReplaceNull))
    End Function

    Public Function ReplaceNull(ByVal m As Match) As String
        If Len(m.Groups(4).Value) > 0 Then
            Return m.Groups(4).Value
        Else
            Return m.Groups(1).Value
        End If
    End Function

public static class DataTableExtensions
{
    public static List<dynamic> ToDynamic(this DataTable dt)
    {
        var dynamicDt = new List<dynamic>();
        foreach (DataRow row in dt.Rows)
        {
            dynamic dyn = new ExpandoObject();
            var dic = (IDictionary<string, object>)dyn;
            foreach (DataColumn column in dt.Columns)
            {
                dic[column.ColumnName] = row[column];
            }
            dynamicDt.Add(dyn);
        }
        return dynamicDt;
    }
}

Нужно мне: — {"id":1}
Потуги МСУ: — {"Key":"id","Value":1}