Búsqueda en sle para un lb

Tengo un sle_1.text en el cual ingreso cualquier nombre; al hacer enter me debe cargar todos los productos que contengan dicha descripción en un lb_1.tex; como podrás ver estuve intentando hacer diferentes métodos pero cuando me resetea el lb_1.text no me vuelve a cargar, espero me puedas ayudar.
lb_1.reset()
string ver
ver=sle_7.text
declare busq cursor for select prod_descripcion from productos where prod_descripcion like '$ :ver ;
open busq;
fetch busq into :ver;
do while SQLca.sqlcode <> 100
lb_1.additem(ver)
fetch busq into :ver;
loop
close busq;