Imports System.ComponentModel
(...)
'rec ist ein beliebiges Objekt, value soll der zu setzende Wert sein
Dim pdCol As PropertyDescriptorCollection = TypeDescriptor.GetProperties(rec)
Dim pd As PropertyDescriptor = pdCol.Find("propertyName", True)
 
If pd IsNot Nothing Then
	pd.SetValue(rec, value)
End If