Dim newPage As New TabPage
TBC.TabPages.Add(newPage)
newPage.Text = Name
newPage.Name = ID

Dim DSData As New DataSet

Dim DAData As New SqlClient.SqlDataAdapter
DAData.Fill(DSData, CStr(ID))

Dim DGVData As New DataGridView()
DGVData.DataMember = CStr(ID)
DGVData.DataSource = DSData

newPage.Controls.Add(DGVData)

For r = 0 To DGVData.Rows.Count - 1
  For C = 0 To DGVData.Columns.Count - 1
     DGVData.Rows(r).Cells(C).Style.BackColor = Color.Aqua
  Next
Next