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