Me.dgdBrowseCttrLocns.Columns.Clear()
 
        Dim sql As String
 
        sql = "select CttrLocn_AACCode as [AAC Code],CttrLocn_AIMSNo as [AIMS No],CttrLocn_CttrName as [Cttr Name]" _
            + ",CttrLocn_GFE_Held as [GFA Held]" _
            + ",cast(round(CttrLocn_Materiality,5)as decimal (20,5)) as Materiality" _
            + ",CttrLocn_PriorityCttr as [Priority Contractor]" _
            + ",CttrLocn_AACGuidelinesMet as [Meets AAC Guidelines]" _
            + ",CttrLocn_Address1 + ' ' + CttrLocn_Address2 + ' ' + CttrLocn_Address_Town + ' '" _
            + "+ CttrLocn_Address_County + ' ' + CttrLocn_Address_PostCode as Address,CttrLocn_Remarks as Remarks" _
            + ",CttrLocn_Issues as Issues,CttrLocn_NoLines as [Num Lines]" _
            + ",cast(cast(round(CttrLocn_Materiality/(select sum(CttrLocn_Materiality) from cttrlocation)*100,5)" _
            + "as decimal(7,5))as varchar(12)) + '%' as [% Total Materiality]" _
            + "from cttrlocation compute sum(cast(round(cttrlocn_materiality,5)as decimal(20,5)))"
 
        Me.Cursor = Cursors.WaitCursor
 
        Dim cmd As New SqlCommand(sql, aiidb2.Connection)
        cmd.Connection.Open()
 
        dgdBrowseCttrLocns.Visible = False
 
        Dim myReader As SqlDataReader = cmd.ExecuteReader
        Dim record As Integer = 0
        Dim column As Integer
        Dim header As String
        header = ""
        While myReader.Read()
            record = record + 1
            Dim tmp(200) As String
            For column = 0 To myReader.FieldCount - 1
                If record = 1 Then
                    dgdBrowseCttrLocns.ColumnCount = column + 1
                    dgdBrowseCttrLocns.Columns(column).Name = myReader.GetName(column)
                End If
                tmp(column) = myReader.GetValue(column).ToString()
            Next
            dgdBrowseCttrLocns.Rows.Add(tmp)
        End While
 
        With dgdBrowseCttrLocns
            .Columns(0).Width = 60
            .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(1).Width = 60
            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(2).Width = 250
            .Columns(3).Width = 60
            .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 
            .Columns(4).Width = 90
            .Columns(5).Width = 80
            .Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(6).Width = 80
            .Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(7).Width = 200
            .Columns(8).Width = 200
            .Columns(9).Width = 200
            .Columns(10).Width = 60
            .Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(11).Width = 80
            .Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        End With
 
        dgdBrowseCttrLocns.Visible = True
 
        cmd.Connection.Close()

Dim dtCol As DataColumn = Nothing                  'Data Column variable
Dim arrstrFunctionalArea As String() = Nothing             'string array variable
Dim dtblFunctionalArea As New DataTable                      'Data Table var
Dim n As Integer
 n = 5   ' n is the number of columns in your table that are not checkbox
arrstrFunctionalArea = New String(n)                             
arrstrFunctionalArea(0) = "AAC Code" 
arrstrFunctionalArea(1) = "Cttr Name" 
........
'Create the Data Table object which will then be used to hold columns and rows
        dtblFunctionalArea = New DataTable("TableName")
 
'Add the string array of columns to the DataColumn object 
        Dim i As Integer
        For i = 0 To 4
            Dim str As String = arrstrFunctionalArea(i)
            dtCol = New DataColumn(str)
            dtCol.DataType = System.Type.GetType("System.String")
            dtCol.DefaultValue = ""
            dtblFunctionalArea.Columns.Add(dtCol)
        Next i

'Add a Column with checkbox in the Grid 
           'create the data column object with the name TFColumn
           Dim dtcCheck As New DataColumn("TFColumn")
           'Set its data Type
           dtcCheck.DataType = System.Type.GetType("System.Boolean")       
           dtcCheck.DefaultValue = False           'Set the default value
           dtblFunctionalArea.Columns.Add(dtcCheck)   'Add the above column to the Data Table

        dgdFunctionArea.DataSource = dtblFunctionalArea

Me.OleDbDataAdapter1.Fill(Me.DataSet11)
        Dim count As Integer
        count = Me.DataSet11.TableName.Count       'to gte the number of rows in dataset
        For i = 0 To count - 1
            Dim Row1 As DataRow
            Row1 = dtblFunctionalArea.NewRow()     'declaring a new row
            'filling the row with values       
            Row1.Item("AAC Code") = Me.DataSet11.TableName.Rows(i).Item(0) 
              .
              .
              .
            Row1.Item("TFColumn") = Me.DataSet11.TableName.Rows(i).Item(3)
              .
              .
            dtblFunctionalArea.Rows.Add(Row1)      'to add the row you created to the table
        Next i