[Resolvido] Checkbox dinamico em um GridView

Boa tarde pessoal,

Estou com um problemão.

Tenho um gridView sem dataSource em minha página ASPX (VB.net)

Tenho um DataTable que utilizo como fonte do GridView.

Preciso adicionar um coluna com um CheckBox em cada linha.

Pois bem, até adicionei o checkbox, mas, não funciona... a nivel de teste coloquei um botão, que ao clicar, iria me mostrar MsgBox de todos os itens que tem o checkbox marcado. Mas isso não funciona, pq ao clicar no botão, somem todos os check box.... :(

Alguém pode me ajudar, segue o código:

Imports System.Data
Partial Class RICC_Scripts_Teste
Inherits System.Web.UI.Page

Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Dim fonte As DataTable = New DataTable()
fonte.Columns.Add("Nome")
fonte.Columns.Add("Idade")
Dim linha1 As DataRow = fonte.NewRow
linha1.Item(0) = "Afonso"
linha1.Item(1) = 22
fonte.Rows.Add(linha1)
Dim linha2 As DataRow = fonte.NewRow
linha2.Item(0) = "Odair"
linha2.Item(1) = 26
fonte.Rows.Add(linha2)
GridViewTeste.DataSource = fonte
GridViewTeste.Columns.Add(New CheckBoxField())
GridViewTeste.DataBind()
End Sub

Protected Sub GridViewTeste_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridViewTeste.RowDataBound
Dim checkbox As CheckBox = New CheckBox()
e.Row.Cells(0).Controls.Add(checkbox)
End Sub

Protected Sub LinkButton1_Click(sender As Object, e As System.EventArgs) Handles LinkButton1.Click
For Each linha As GridViewRow In GridViewTeste.Rows
'If DirectCast(linha.Cells(0).FindControl("checkbox"), CheckBox).Checked Then
MsgBox(linha.Cells(1).Text)
'End If
Next
End Sub
End Class

Desde já obrigado.