Dim query As String
Dim rs As Recordset
query = "SELECT * FROM Produzione"
Set rs = CurrentDb.OpenRecordset(query)
DoCmd.OutputTo acOutputQuery, query, acFormatXLS, CurrentProject.Path & "C:\barbara" & "FC.XLS", True
rs.Close