Una query select va aperta, non eseguita.

codice:
ssql = "select * from vetrine_vetrine where visibile = 'true'"
set rs = carezzoweb.execute(ssql)
in

codice:
ssql = "select * from vetrine_vetrine where visibile = 'true'"
nomerecordset.Open ssql, nomeconnessione, 1