Sub Carica()
Dim query As string
dim Data_in as date
dim Data Fin as Date
Data_in = cdate(tuaForm.Data_inizio.text)
Data_Fin = cdate(tuaFormData_F.text)
Dim rs As DAO.Recordset
query = “select Sum(Buoni) AS SommaDiBuoni, Sum(Bloccati) AS SommaDiBloccati, Sum(Scarto) AS SommaDiScarto From Produzione where ((Produzione.Data Between ” & Data_in & “ And "& Data_Fin & “)and (Linea = '" & CasellaCombinata & "'))"
Set rs=CurrentDb.OpenRecordset(query)