Recordset1.Source = "SELECT NomeReparto FROM Reparto"
mi sembra che manca TitoloProdotto:

Recordset1.Source = "SELECT NomeReparto, TitoloProdotto FROM Reparto"