erro: DataBinding: 'Cesta' não contém uma propriedade com o no

default.aspx.vb

Imports Microsoft.VisualBasic

Public Class Cesta

Public Shared varCodigo As Integer
Public Shared varNome As String
Public Shared varImagem As String
Public Shared varQuantidade As Integer
Public Shared varPrecoUnitario As Double
Public Shared varSubTotal As Double

Public Sub New(ByVal pro_cod As Integer, ByVal pro_nom As String, ByVal pro_ima_pri As String, ByVal pro_qua As Integer, ByVal pro_pre As Double, ByVal pro_sub_tot As Double)

varCodigo = pro_cod

varNome = pro_nom

varImagem = pro_ima_pri

varQuantidade = pro_qua

varPrecoUnitario = pro_pre

varSubTotal = pro_sub_tot

End Sub

Public Shared Property Codigo() As Integer

Get

Return varCodigo

End Get

Set(ByVal value As Integer)

varCodigo = value

End Set

End Property

Public Shared Property Nome() As String

Get

Return varNome

End Get

Set(ByVal value As String)

varNome = value

End Set

End Property

Public Shared Property Imagem() As String

Get

Return varImagem

End Get

Set(ByVal value As String)

varImagem = value

End Set

End Property

Public Shared Property Quantidade() As Integer

Get

Return varQuantidade

End Get

Set(ByVal value As Integer)

varQuantidade = value

End Set

End Property

Public Shared Property PrecoUnitario() As Double

Get

Return varPrecoUnitario

End Get

Set(ByVal value As Double)

varPrecoUnitario = value

End Set

End Property

Public Shared Property SubTotal() As Double

Get

Return varSubTotal

End Get

Set(ByVal value As Double)

varSubTotal = value

End Set

End Property

End Class

Public Class acaoCesta

Public Shared lstCesta As New List(Of Cesta)()

Public Sub RetirarDaCesta(ByVal codigoProduto As Cesta)

lstCesta.Remove(codigoProduto)

End Sub

Public Shared Sub AdicionaNaCesta(ByVal _Codigo As Integer, ByVal _Nome As String, ByVal _Imagem As String, ByVal _Quantidade As Integer, ByVal _PrecoUnitario As Double, ByVal _SubTotal As Double)

lstCesta.Add(New Cesta(_Codigo, _Nome, _Imagem, _Quantidade, _PrecoUnitario, _SubTotal))

End Sub

Public Sub ListaCesta(ByVal gv As GridView)

gv.DataSource = lstCesta
gv.DataBind()

End Sub

End Class

Default.aspx

<asp:GridView ID="gvCarrinho" runat="server" AutoGenerateColumns="False"

GridLines="Both" AllowPaging="True"

OnRowCommand="gvCarrinho_RowCommand" DataKeyNames="Codigo"

ShowFooter="True" >

<Columns>

<asp:TemplateField>

<ItemTemplate>

<asp:Image ID="ImagemProduto" ImageUrl='<%# Eval("Imagem", "img_produto/{0}") %>' runat="server"></asp:Image>

</ItemTemplate>

</asp:TemplateField>

<asp:BoundField DataField="Nome" HeaderText="Produto" HeaderStyle-Width = "14%" ControlStyle-Font-Bold="true" >

<ControlStyle Font-Bold="True"></ControlStyle>

<HeaderStyle Width="15%"></HeaderStyle>

</asp:BoundField>

<asp:TemplateField HeaderText="Quantidade">

<ItemTemplate>

<asp:TextBox ID="Quantidade" Text='<%# Eval("Quantidade") %>' runat="server"></asp:TextBox>

</ItemTemplate>

</asp:TemplateField>

<asp:TemplateField HeaderText="Remover">

<ItemTemplate>

<asp:ImageButton ImageAlign="AbsMiddle" ImageUrl="img/delete.png" ID="lblDeletar" runat="server" CommandArgument='<%# Eval("Codigo") %>'

CommandName="Remover" /></asp:ImagaButton>

</ItemTemplate>

</asp:TemplateField>

<asp:TemplateField HeaderText="Preo Unitrio">

<ItemTemplate>

<asp:Label ID="lblPrecoUnitario" runat="server" Text='<%# FormatCurrency(Eval("PrecoUnitario"), 2) %>'></asp:Label>

</ItemTemplate>

</asp:TemplateField>

<asp:TemplateField HeaderText="SubTotal">

<ItemTemplate>

<asp:Label ID="lblSubTotal" runat="server" Text='<%# FormatCurrency(Eval("SubTotal"), 2) %>'></asp:Label>

</ItemTemplate>

</asp:TemplateField>

</Columns>

</asp:GridView>

Pq da o seguinte erro: DataBinding: 'Cesta' não contém uma propriedade com o nome 'Codigo'

quando populo o gridview com o LIST( OF ) ?