No vi la Busqueda(I) de tu cadena SQL, y el problema vino porque yo puse For e=1 to Ubound(buscar), y claro, luego no encontraba la i.
; ha sido con tu explicacion cuando me he dado cuenta.
Supongo que son errores de principiante.
Saludos
( y sigue así )