You are correct - overlooked that. In that case, I suspect:
sSql = sSql & "SET @DATE = '" & Format(CDate(report_date), "yyyy-mm-dd") & "'" & vbCrLf