vou te dar uma dica quente.
SQL1.ExecQuery("SELECT * from produto where descricao like '%" & textobusca & "%'"
pode ser melhorado desta forma
Cursor = SQL1.ExecQuery("SELECT * from produto where descricao like '%" & replace( textobusca, " ", "%" ) & "%'".
desta forma vc esta buscando nao somente uma descricao que contenha, mas também que possa ter palavras combinadas
ex : 'SABAO EM PO OMO DUPLA ACAO'
se vc informar no 1 exemplo, OMO DUPLA, iria achar, porém 'SABAO OMO ACAO', nao iria achar
neste segundo exemplo iria encontrar