Dim reader2 As SqlDataReader = cData.ExecuteSelect2DataReader("SELECT" & _
  "PropertyInfoName, AdvancedProperties1, AdvancedProperties2 FROM Reflection" & _
  "WHERE ControlType = '" & tType.Name.ToString() & "' OR ControlType = '" & _
  tType.BaseType.Name.ToString() & "'")
 
        While reader2.Read()
            If Not reader2.IsDBNull(1) Then
                For Each piPropertyInfo In tType.GetProperties()
                    If piPropertyInfo.Name = reader2.GetString(2) Then   _
                      '>> Überprüfe, ob Eigenschaft in der Datenbank enthalten ist
 
                        Dim oUnknown As Object = cCtrl
                        Dim pi As PropertyInfo = oUnknown.GetType.GetProperty( _
                          reader2.GetString(2))
                        Dim collection As IEnumerable = TryCast(pi.GetValue( _
                        oUnknown, Nothing), IEnumerable)
                        If collection IsNot Nothing Then
                            Dim iterIE As IEnumerator = _
                              collection.GetEnumerator()
                            While iterIE.MoveNext
                                MsgBox(iterIE.Current.ToString()) '<= wie caste 
                                ' ich iterIE.Current in einen anderen Typen und 
                                ' wie greife ich dann auf dessen Properties zu?
                            End While
                        End If
 
                    End If
 
 
                Next
            End If
        End While
        reader2.Close()