encontre la manera de que agrege determinado número de filas, me hace falta hacer lo mismo para las columnas. Las filas se pueden agregar de la siguiente manera:
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Me.IsPostBack Then
Dim dt As New DataTable()
dt.Columns.AddRange(New DataColumn(0) {New DataColumn("aaa")})
For j = 1 To 2
dt.Rows.Add(j)
Next
ViewState("dt") = dt
Me.BindGrid()
End If
End Sub
Protected Sub BindGrid()
grid.DataSource = TryCast(ViewState("dt"), DataTable)
grid.DataBind()
End Sub