prova con :

rec.Open "magazzino Where Occasioni='SI'", conn, 3, 3