VB.NET Collection to Datagridview

Public Class Memory

    '--for frmcashreimbursement
    Private ushortname, usectionname As String

    '--for frmselectworkname
    Private uworkname, uworkid As String

    '--for frmCashadvreimbursement
    Private udate, uwhere, uwhy, uamount As String

    '--for frmreportregscr
    Private urepregdate, urepregpay, urepregpayee, urepregamount As String

    '--for frmReportingParticipantList
    Private uparticipants As Object

    '--for frmReportingResult
    Private ureasons, uagenda, umemo As String

    Public Property get_ushortname() As String
        Get
            Return ushortname
        End Get
        Set(value As String)
            ushortname = value
        End Set
    End Property

    Public Property get_usectionname() As String
        Get
            Return usectionname
        End Get
        Set(value As String)
            usectionname = value
        End Set
    End Property


    Public Property get_uworkname() As String
        Get
            Return uworkname
        End Get
        Set(value As String)
            uworkname = value
        End Set
    End Property


    Public Property get_uworkid() As String
        Get
            Return uworkid
        End Get
        Set(value As String)
            uworkid = value
        End Set
    End Property


    Public Property get_udate() As String
        Get
            Return udate
        End Get
        Set(value As String)
            udate = value
        End Set
    End Property


    Public Property get_uwhere() As String
        Get
            Return uwhere
        End Get
        Set(value As String)
            uwhere = value
        End Set
    End Property

    

    Public Property get_uwhy() As String
        Get
            Return uwhy
        End Get
        Set(value As String)
            uwhy = value
        End Set
    End Property



    Public Property get_uamount() As String
        Get
            Return uamount
        End Get
        Set(value As String)
            uamount = value
        End Set
    End Property


    Public Property get_urepregdate() As String
        Get
            Return urepregdate
        End Get
        Set(value As String)
            urepregdate = value
        End Set
    End Property


    Public Property get_urepregpay() As String
        Get
            Return urepregpay
        End Get
        Set(value As String)
            urepregpay = value
        End Set
    End Property


    Public Property get_urepregpayee() As String
        Get
            Return urepregpayee
        End Get
        Set(value As String)
            urepregpayee = value
        End Set
    End Property


    Public Property get_urepregamount() As String
        Get
            Return urepregamount
        End Get
        Set(value As String)
            urepregamount = value
        End Set
    End Property



    Public Property get_uparticipants() As Object
        Get
            Return uparticipants
        End Get
        Set(value As Object)
            uparticipants = value
        End Set
    End Property



    Public Property get_ureasons() As String
        Get
            Return ureasons
        End Get
        Set(value As String)
            ureasons = value
        End Set
    End Property



    Public Property get_uagenda() As String
        Get
            Return uagenda
        End Get
        Set(value As String)
            uagenda = value
        End Set
    End Property


    Public Property get_umemo() As String
        Get
            Return umemo
        End Get
        Set(value As String)
            umemo = value
        End Set
    End Property


End Class

    Public Class consolidate
        Sub New()


            Dim data As New Memory
1:          data.get_uworkid = uworkid
2:          data.get_uworkname = uworkname
3:          data.get_usectionname = usectionname
4:          data.get_ushortname = ushortname
5:          data.get_udate = udate
6:          data.get_uwhere = uwhere
7:          data.get_uwhy = uwhy
8:          data.get_uamount = uamount
9:          data.get_urepregdate = urepregdate
10:         data.get_urepregpay = urepregpay
11:         data.get_urepregpayee = urepregpayee
12:         data.get_urepregamount = urepregamount
13:         data.get_uparticipants = uparticipants
14:         data.get_uagenda = uagenda
15:         data.get_ureasons = ureasons
16:         data.get_umemo = umemo


            counter = counter + 1

            memorydata.Add(data, counter)

            pList.Add(data, counter.ToString)

Datagridview1.Datasource = CollectionName("Filter????")