Hi , I tried to convert you r example to suit my needs.  This is my code..  In the end I want to use 2 JIONED tables.  In my SQL statement, do I only have to give the names of the fields I am using, or can I use SELECT * ?

Imports System.Data

Imports System.IO

Imports System.Data.SqlClient

Imports System.Data.Sql

Imports Infragistics.Olap.FlatData

Public Class PivotTableExample

    Dim counter As Integer = 0

    Public con As New SqlConnection(constr)

    Public adp As SqlDataAdapter

    Public dt As New DataTable

    Public cmd As SqlCommand

    Public StartingDate, EndingDate As Date

    Dim workbook As Infragistics.Documents.Excel.Workbook

    Public Sub FillPivotGrid()

        Dim Table As New DataTable

        Dim query As String = " SELECT * FROM  STUDENT   "

        Using conn As New SqlConnection(constr)

            Using cmd As New SqlCommand(query, conn)

                cmd.CommandType = CommandType.Text

                conn.Open()

                Dim reader = cmd.ExecuteReader()

                Dim data As IEnumerable(Of SETA_Qualifications) = CreateIEnumerable(reader)

                Dim ds As FlatDataSource = InitializePivotData(data)

                Dim parameters = New CubeGenerationParameters()

                ds.GenerateCube(parameters)

                ds.InitializeAsync(UltraPivotGrid1)

                UltraPivotGrid1.DataSource = ds

                OlapDataSelector1.DataSource = ds

            End Using

        End Using

    End Sub

    Private Function CreateIEnumerable(reader As SqlDataReader) As IEnumerable(Of SETA_Qualifications)

        Dim listOfSETA_Qualifications = reader.Cast(Of IDataRecord).

            Select(Function(s) New SETA_Qualifications(s.Item(1), s.Item(2), s.Item(3), s.Item(4), s.Item(5), s.Item(6)))

        Return listOfSETA_Qualifications

    End Function

    Private Function InitializePivotData(data As IEnumerable(Of SETA_Qualifications)) As FlatDataSource

        Dim itemSource As IEnumerable(Of SETA_Qualifications) = data

        Dim settings = New FlatDataSourceInitialSettings()

        Dim ds = New FlatDataSource(itemSource.ToList(), GetType(SETA_Qualifications), settings)

        AddHandler ds.InitializeHierarchyDescriptor, AddressOf ds_InitializeHierarchyDescriptor

        AddHandler ds.AggregateMeasure, AddressOf ds_AggregateMeasure

        settings.Rows = "[SETA_Qualifications].[Person_Title]"

        settings.Columns = "[SETA_Qualifications].[Equity_code]"

        settings.Measures = "[Measures].[Gender]"

        Return ds

    End Function

    Private Sub ds_InitializeHierarchyDescriptor(sender As Object, e As InitializeHierarchyDescriptorEventArgs)

        Dim level As LevelDescriptor = e.HierarchyDescriptor.LevelDescriptors.ToList().FirstOrDefault(Function(lvl) lvl.Name = "all")

        If level IsNot Nothing Then

            Select Case e.HierarchyDescriptor.PropertyDescriptor.Name

                Case "Person_Title"

                    level.MemberProvider = Function(item) "All Persons"

                Case "Equity_code"

                    level.MemberProvider = Function(item) "All Equity"

                    Exit Select

                Case "National_Id"

                    level.MemberProvider = Function(item) "All ID"

                    Exit Select

            End Select

        End If

    End Sub

    Private Sub ds_InitializeMeasureDescriptor(sender As Object, e As InitializeMeasureDescriptorEventArgs)

        If (e.MeasureDescriptor.Name = "Gender") Then

            e.MeasureDescriptor.DisplayFormat = "$#"

            e.MeasureDescriptor.Aggregation = MeasureAggregation.Count

        End If

    End Sub

    Private Sub ds_AggregateMeasure(sender As Object, e As AggregateMeasureEventArgs)

        If e.MeasureDescriptor.Name = "Gender" Then

            Dim total As Double = 0.0F

            Dim count As Double = 0.0F

            For Each o As Object In e.Items

                Dim item = TryCast(o, SETA_Qualifications)

                If item IsNot Nothing Then

                    total += item.Gender

                End If

                count += 1.0F

            Next

            e.Value = total / count

            e.Handled = True

        End If

    End Sub

    Private Sub UltraButton1_Click(sender As Object, e As EventArgs) Handles UltraButton1.Click

        FillPivotGrid()

    End Sub

End Class

Class SETA_Qualifications

    Private m_Person_Title As String

    Private m_Equity_code As String

    Private m_National_Id As String

    Private m_Gender As String

    Private m_Disability_Status As String

    Public Sub New(OFO_Code As String, SETA As String, ProgramName As String, National_Id As String, Gender As String, Disability As String)

        Me.m_Person_Title = Person_Title

        Me.m_Equity_code = Equity_code

        Me.m_National_Id = National_Id

        Me.m_Gender = Gender

        Me.m_Disability_Status = Disability

    End Sub

    <System.ComponentModel.Category("Person_Title")>

    Public Property Person_Title As String

        Get

            Return m_Person_Title

        End Get

        Set(value As String)

            m_Person_Title = value

        End Set

    End Property

    <System.ComponentModel.Category("Equity_code")>

    Public Property Equity_code As String

        Get

            Return m_Equity_code

        End Get

        Set(value As String)

            m_Equity_code = value

        End Set

    End Property

    <System.ComponentModel.Category("Identification")>

    Public Property Identification As String

        Get

            Return m_National_Id

        End Get

        Set(value As String)

            m_National_Id = value

        End Set

    End Property

    <System.ComponentModel.Category("Metrics")>

    Public Property Gender As Double

        Get

            Return m_Gender

        End Get

        Set(value As Double)

            m_Gender = value

        End Set

    End Property

    <System.ComponentModel.Category("Metrics")>

    Public Property Disability As Integer

        Get

            Return m_Disability_Status

        End Get

        Set(value As Integer)

            m_Disability_Status = value

        End Set

    End Property

End Class

I get the following Error message:

See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.InvalidCastException: Conversion from type 'DBNull' to type 'String' is not valid.
   at Microsoft.VisualBasic.CompilerServices.Conversions.ToString(Object Value)
   at WindowsApplication1.PivotTableExample._Lambda$__1(IDataRecord s) in C:\College Placement Program\StudentPlacement\StudentPlacement\PivotTableExample.vb:line 46
   at System.Linq.Enumerable.WhereSelectEnumerableIterator`2.MoveNext()
   at System.Collections.Generic.List`1..ctor(IEnumerable`1 collection)
   at System.Linq.Enumerable.ToList[TSource](IEnumerable`1 source)
   at WindowsApplication1.PivotTableExample.InitializePivotData(IEnumerable`1 data) in C:\College Placement Program\StudentPlacement\StudentPlacement\PivotTableExample.vb:line 53
   at WindowsApplication1.PivotTableExample.FillPivotGrid() in C:\College Placement Program\StudentPlacement\StudentPlacement\PivotTableExample.vb:line 34
   at WindowsApplication1.PivotTableExample.UltraButton1_Click(Object sender, EventArgs e) in C:\College Placement Program\StudentPlacement\StudentPlacement\PivotTableExample.vb:line 291
   at System.Windows.Forms.Control.OnClick(EventArgs e)
   at Infragistics.Win.UltraControlBase.OnClick(EventArgs e)
   at Infragistics.Win.Misc.UltraButtonBase.OnClick(EventArgs e)
   at Infragistics.Win.Misc.UltraButton.OnMouseUp(MouseEventArgs e)
   at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)