thank you so much it worked as a charmed.
dim y as control
for each y in controls
if typeof y is commandbutton then
if y.name = strbuttonmame then
y.caption = stric & " [" & rsdiscriptionfind!Qty & "]"
end if
end if
next