Sub Carica()
Dim query As string
Dim rs As DAO.Recordset
query = “ select Sum(Buoni) AS SommaDiBuoni, Sum(Bloccati) AS SommaDiBloccati, Sum(Scarto) AS SommaDiScarto From Produzione where ((Produzione.Data>= ‘”& Data_inizio & “’ And (Produzione.Data<=‘”& Data_fine & “’)and (Linea = '" & CasellaCombinata & "'))"
Set rs=CurrentDb.OpenRecordset(query)