You'll need to format it first, I think:
sSql = sSql & "SET @DATE = '" & Format(report_date, "yyyy-mm-dd") & "'" & vbCrLf