Voila ma requete en vba pour access

Set Rec = CurrentDb.OpenRecordset("SELECT DISTINCTROW Sum([Imputation].[NbKilo]) AS [Somme De NbKilo], Sum([Imputation].[NbHeure]) AS [Somme De NbHeure], Sum([Imputation].[Resto]) AS [Somme De Resto], Sum([Imputation].[FraisDivers]) AS [Somme De FraisDivers], [Imputation].[Nomprojet]FROM Imputation WHERE [Imputation].[NomEmploye]=' Chx_Employe ' And cstr(Format$([Imputation].[Jour],'mmmm'))='" & Me.LeMois & "' And cstr(Format$([Imputation].[Jour],'yyyy'))='" & Me.Année & "'GROUP BY Format$([Imputation].[Jour],'mmmm yyyy'), Year([Imputation].[Jour])*12+DatePart('m',[Imputation].[Jour])-1, [Imputation].[Nomprojet];")