Dim t1 As New Test("Eins", 1)
Dim t2 As New Test("Zwei", 2)
 
Dim bf1 As New BoundField()
bf1.DataField = "Text"
 
Dim bf2 As New BoundField()
bf2.DataField = "Zahl"
 
With GridView1
   .Columns.Add(bf1)
   .Columns.Add(bf2)
   .AutoGenerateColumns = False
   .DataSource = New Test() {t1, t2}
   .DataBind()
   .Columns(1).Visible = False
End With

Ralf