GetValue 的用法

我想用GetValue取类中类的变量值,也就是 name ，id ，value 的值
Public Class Class1
Public Class subClass
Public name As String
Public id As String
Public value As String
End Class
Public p1 As subClass
Public p2 As subClass
Public p3 As subClass
’------------------------------------------------
Sub GetDate()
Dim row As DataRow
Dim t As Type = GetType(Class1)
Dim fields() As FieldInfo
Dim subfields() As FieldInfo
'Dim subcl As subClass = New subClass
Try

dt.Clear()
fields = t.GetFields()
Dim i As Integer = 0
For Each field As FieldInfo In fields
row = dt.NewRow
’上一级类的 p1,p2,p3 取到了
row.Item("name") = field.Name
Dim subType As Type = field.Name.GetType()
subfields = subType.GetFields()
For Each subfield As FieldInfo In subfields

‘这里不知道怎么写
‘想取到p1.name p1.id p1.value 的值
subfield.GetValue(XXXXXXXXXXXX)

rows.Item("name") = p1.name
rows.Item("id") = p1.id
rows.Item("value") = p1.value
dt.Rows.Add(row)
Next
Next
Catch ex As Exception

End Try
End Sub