Dim pdc As System.ComponentModel.PropertyDescriptorCollection
Dim pos as Integer
 
pdc = BindingSource.CurrencyManager.CurrencyManager.GetItemProperties()
pos = BindingSource.Find(pdc("AttributName"), Suchstring)
if pos > -1 then
BindingSource.position = pos
endif