For I = 1 to 30
Dim var1 as string ="Feld"+CSTr(Trim(I))
dim var2 as string="me.feld"+CStr(trim(I))
if me.controls.containskey(var2) then
dim box as textbox=me.controls.item(var2)
box.databinding.add("Text",bindingsource,var1)
endif
next