We upgraded to Access 2013 so .adp no longer is supported. The code below no longer works, can anyone help me code this correctly in VBA for Access 2013? This line errors out now that its not a .adp file DoCmd.OutputTo acOutputQuery, "dbo.Issue Open 3", "ExcelWorkbook(*.xlsx)", "I:\Groups\ccuser\Finance\Collection Control\Open Issues\OpenIssuesReport.xlsx", False, "", , acExportQualityPrint

'Export the open issues query results (created view in SQL server)
DoCmd.OutputTo acOutputQuery, "dbo.Issue Open 3", "ExcelWorkbook(*.xlsx)", "I:\Groups\ccuser\Finance\Collection Control\Open Issues\OpenIssuesReport.xlsx", False, "", , acExportQualityPrint
'Sets strFilePath equal to the location of the excel file
strFilePath = "I:\Groups\ccuser\Finance\Collection Control\Open Issues\OpenIssuesReport.xlsx"