Dim db As New DataGrid
        Dim newTabpage As TabPage
        Dim crow As DataRow, ccol As DataColumn
        For Each crow In dt.Rows
            For Each ccol In dt.Columns
                newTabpage = New TabPage
                newTabpage.Text = (crow(ccol.ColumnName))
                Me.TabControl1.TabPages.Add(newTabpage)
                db.Dock = DockStyle.Fill
                newTabpage.Controls.Add(db)
            Next
        Next