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