Public Function buildGrid(ByVal DS As DataSet, ByVal ChartDetails As DataTable, ByVal GridID As Integer, ByVal TableId As Integer) As GridView
       Dim Grid As New GridView
       Dim oTemp As Object
       Dim oboundCol As BoundField
       'Declare and fill dataview
       Dim dv As DataView
       dv = New DataView
       dv.Table = ChartDetails
       Dim ColumnID As Integer
       Dim DataGrid As New DataTable
       DataGrid = DS.Tables(TableId - 1).Copy
       dv.Sort = "ColumnID ASC"
       Dim ods As New ObjectDataSource



       Dim ColCount As Integer = 0
       While ColCount < DataGrid.Columns.Count
           ColumnID = ColCount + 1
           dv.RowFilter = "ColumnID = '" & ColumnID & "' AND GridID = '" & GridID & "'"
           dv.RowStateFilter = DataViewRowState.CurrentRows
           oboundCol = New BoundField
           If dv.Count > 0 Then



               oboundCol.DataField = DataGrid.Columns(ColCount).ColumnName.ToString
               oTemp = New Object
               oTemp = oboundCol
               oTemp.HeaderText = dv.Item(0).Row.Item("Name")
               oTemp.ItemStyle.HorizontalAlign = HorizontalAlign.Left
           Else
               oboundCol.DataField = DataGrid.Columns(ColCount).ColumnName.ToString
               oTemp = oboundCol
           End If
           Grid.Columns.Add(oTemp)
           ColCount = ColCount + 1
       End While

       Grid.DataSource = DataGrid
       Grid.DataBind()

       Return Grid
   End Function

SELECT wsName 'a String<br />
FROM WordSurvey 'the Table Name<br />
WHERE (sessionID=@sessionID) 'Int32 number<br />