nella stringa
codice:
rs.Open sql, conn ,3,3
prova a sostituire il primo "3" con un "1"