在VB.NET中将多行值放在对象中

Question

我有一个存储过程，通常该过程将返回多行，例如：

ID     Type    Price
1234    A      2.260
1234    B      2.690
1234    C      2.990
1234    D      2.690
1234    D      2.790
1234    D      2.650
1234    D      2.680

我想输出每种类型的最新值。在我的数据阅读器中，我有：

While dr.Read
    result.price.TypeA= dr("price")
    result.price.TypeB= dr("price")
    result.price.TypeC= dr("price")
    result.price.TypeD= dr("price")
End While

我的查询如下：

select  sm_id,
        type,
        price
from    ** WITH (NOLOCK)
where   id = @id
order by id desc

我不确定如何将所有结果存储到我的对象中，以便我可以在前端访问它们。