Dim query = from m in Manufacturers
    where m.Name = "Trek" 
    select new with {.Name = m.Name, .ManufacturerId = m.ManufacturerId}

Dim lambda = Manufacturers.Where(function(m) m.Name = "Trek").Select(function(m) new with {.Name = m.Name, .ManufacturerId = m.ManufacturerId})