Issue with iDataStatistics

            Dim pPath As String = "C:\Temp\Test.gdb"
            Dim pWorkspaceFactory As IWorkspaceFactory = New FileGDBWorkspaceFactoryClass
            Dim pFeatureWorkspace As IFeatureWorkspace = CType(pWorkspaceFactory.OpenFromFile(pPath, 0), ESRI.ArcGIS.Geodatabase.IFeatureWorkspace)
            Dim pFClass As IFeatureClass = pFeatureWorkspace.OpenFeatureClass("fc1")
            Dim pData As IDataStatistics = New DataStatisticsClass
            Dim pCursor As ICursor = pFClass.Search(Nothing, False)

            pData.Field = "VALUE"
            pData.Cursor = pCursor

            Dim pEnum As IEnumerator = pData.UniqueValues
            pEnum.Reset()

            Do While pEnum.MoveNext

                ListView1.Items.Add(pEnum.Current)

            Loop

            Marshal.FinalReleaseComObject(pCursor)
            Marshal.FinalReleaseComObject(pData)