Dim results As DataTable = newDt.AsEnumerable().Distinct().CopyToDataTable()
        For Each row As DataRow In results.Rows

            Dim info As ProductInfo = New ProductInfo(CStr(row("ProdName")).Trim, row("displayname"), row)

            products.Add(info)
        Next

    End Sub
    Public Class ProductInfo
        Public ProductName As String
        Public MillName As String
        Public CarbonTable As New DataTable

        Public Sub New(ByVal bajs1 As String, ByVal bajs2 As String, ByVal dtRow As DataRow)
            ProductName = bajs1
            MillName = bajs2
            CarbonTable = addDatarow(dtRow)
        End Sub

        Public Function addDatarow(ByVal row As DataRow) As DataTable
            CarbonTable.Clear()
            CarbonTable.ImportRow(row)

            Return CarbonTable
        End Function
    End Class