SoloCodigo

1.-Divide la cadena de consulta en palabras  y manten la cuenta de palabras.
Ahora con cada palabra puedes formar varias cadenas Like
 a(1) =  "where titulo  Like " + palabra1  
 a(2) =   "or titulo Like " + palabra2
 a(3) =   "or titulo Like "+ palabra3
 a(n) =   "or titulo Like "+ palabran

 suma el guere
a=a(1)+a(2).....a(n)
y agregalo a la cadena de consulta

2.-El unico lugar donde encontraras los codigos es en el manual especifico de tu impresor.

Primero haz la consulta y luego formatea
el resultado de la consulta.

rstImportCtas.Open "select sect,manza,lote,toma,dig from....

'verifica al menos un registro con rstImportCtas.recorcout

rsect=rstImportCtas.fields("sect").value
rman=rstImportCtas.fields("manza").value

ahora si formatea

resp = format(rsect,"00")+format(rman,"000")+.......