Private Sub DataGrid1_PreRender(ByVal sender As Object, ByVal e As
System.EventArgs) Handles DataGrid1.PreRender


   Dim dgitem As New DataGridItem(0, 0, ListItemType.Header)
   Dim mycell As New TableCell()
   mycell.ColumnSpan = 2 'Set it to the colspan that you want
   mycell.Text = "This is the top level header item spanning two columns!"
   dgitem.Cells.Add(mycell)
   DataGrid1.Controls(0).Controls.AddAt(0, dgitem)


End Sub