Colection para DataTable VB.Net

Eu estou desenvolvendo uma função que pega uma colection e transforma em um DataTable.

Eu estou conseguindo pegar cada nome da propriedade da colection e transformar em uma coluna do DataTable, porem não estou conseguindo pegar o valor setado na propriedade da colection e jogar na linha da DataTable...

Alguém teria alguma ideia de como fazer isso?

Segue abaixo o codigo que eu estou utilizando

Private Function MontaDataTable(ByVal be, ByVal col) As DataTable

Dim lAssembly As System.Reflection.Assembly

Dim lTypes() As System.Type

Dim lCont As Int16

Try

lAssembly = System.Reflection.Assembly.Load("Gemco.DataTier.BE")

lTypes = lAssembly.GetTypes()

Dim dt As New DataTable

'dt.Columns.Add("Nome")

Dim drow As DataRow

Dim i, z As Integer

For lCont = 0 To lTypes.Length - 1

If lTypes(lCont).Name.ToUpper = be Then

mProperties = lTypes(lCont).GetProperties()

For i = 0 To mProperties.Length - 1

If mProperties(i).Name = "ColumnMap" Then

Else

'drow = dt.NewRow()

'drow.Item("Nome") = mProperties(i).Name

'dt.Rows.Add(drow)

dt.Columns.Add(mProperties(i).Name)

End If

Exit For

End If

Dim coluna As String

For i = 0 To col.count - 1 ' colection.length

drow = dt.NewRow()

For z = 0 To mProperties.Length - 1

coluna = mProperties(z).Name 'pega o nome da coluna

If coluna = "ColumnMap" Then

Else

drow.Item(coluna) = 'lugar onde eu deveria colocar o valor da propriedade na datatable

'col.item(i) & "." & coluna 'adiciona um valor para a coluna desejada

End If

dt.Rows.Add(drow)

Return dt

Catch ex As Exception

Throw ex

End Try

obrigado