Datagrid - flere kolonner via arraylist

Hejsa

Er der en der kan hjælpe med følgende problem.

Jeg har en række data fra en database som jeg gerne vil manipulere inden jeg viser dem i et datagrid. Hertil har jeg læst, at måden at gøre dette på er at oprette en arraylist med objekter, som så dernæst indlæses i datagrid'det.

Jeg kan bare ikke få det til at fungere og får fejlen: Object does not match target type
og den pejer på linien: dgProducts.DataBind

Er der en som kan løse problemet for mig, synes jeg har søgt hele
nettet igennem efter et svar, men som der nok kan gættes, har jeg ikke fundet en løsning :)

Alternative løsninger er selvf. også velkomne

mvh
Dennis


Koden der benyttes er følgende:

        Dim values as ArrayList= new ArrayList()

        Dim intProductCategoryId as Integer =
request.querystring("recordid")
        Dim drRecords as System.Data.IDataReader =
getProducts(intProductCategoryId)

        while drRecords.Read()
            values.Add (values.Add(New
product(drRecords("ProductId"),drRecords("Name"),drRecords("Price"),drRecords("Stock"),drRecords("StockLimited"))))
        end while

        dgProducts.DataSource = values
        dgProducts.DataBind




Klassen er:

    Public Class product
    Private m_ProductId As Integer
    Private m_Name As String
    Private m_Price As Integer
    Private m_Stock As Integer
    Private m_StockLimited As Boolean

    Public Sub New(ByVal ProductId, ByRef Name, ByVal price, ByVal
stock, ByVal stocklimited)
        m_productid = productId
        m_name = name
        m_price = price
        m_stock = stock
        m_stocklimited = stocklimited
    End Sub

    Public Property name() As String
        Get
            Return "<a
href=""product_information_unique.aspx?recordid=" & m_ProductId &
""">" & m_Name & "</a>"
        End Get
        Set(ByVal Value As String)
            m_name = Value
        End Set
    End Property

    Public Property price() As String
        Get
            Return m_Price & " kr."
        End Get
        Set(ByVal Value As String)
            m_price = Value
        End Set
    End Property

    Public Property stock As String
        Get
            if m_StockLimited = True then
                Return m_Stock
            else
                Return " "
            End if
        End Get
        Set(ByVal Value As String)
            m_stock = Value
        End Set
    End Property


    End Class