Private Sub DeclareTempVars()
TempVars.Add "DBPath", GetUNC(CurrentProject.path & "\")
TempVars.Add "dbServer", "Server=chmohcsysoc;"
If TempVars.Item("dbPath").Value = "\\chp.clarian.org\group\mohc\vol1\SHARE\Business Solutions\Data Analyst\Quarterly Reports\PROD\" Then
TempVars.Add "DevMode", False
TempVars.Add "ConString", "Provider=SQLNCLI11;" & TempVars.Item("dbServer").Value & "Database=Reporting;Trusted_Connection=Yes;"
Else
TempVars.Add "DevMode", True
TempVars.Add "ConString", "Provider=SQLNCLI11;" & TempVars.Item("dbServer").Value & "Database=ReportingDev…