Grazie anatroccolo per il codice.
E' tutto chiaro, solo un "piccolo" problema: è possibile che nella SELECT non mi accetti il LIKE?

Es:

query = "SELECT * FROM Tabella WHERE descrizione LIKE '" & ricdesc & "*' AND IDcodice <> 1 order by descrizione"
RecRS.Open query, DatDb1, adOpenStatic, adLockOptimistic

Tutti gli operatori funzionano, ma con il LIKE non mi stampa nulla.
Com'è possibile?
GRAZIE