Others have gotten parts of this, but I don't think anybody has gotten it all correct. It should be this:
strLocalSql = "SELECT tblEventTypeList.EventType" & _
" FROM tblEventTypeList" & _
" WHERE tblEventTypeList.[EventPage] = " & ts & _
" ORDER BY tblEventTypeList.[EventType];"
This assumes that your EvenPage field is numeric (and that the value in the ts variable is numeric). If it's text, then you need this, instead:
strLocalSql = "SELECT tblEventTypeList.EventType" & _
" FROM tblEventTypeList" & _
" WHERE tblEventTypeList.[EventPage] = " _
& Chr(34) & ts & Chr(34) & _
" ORDER BY tblEventTypeList.[EventType];"
Personally, I maintain in all my Access projects a constant defined thus:
Global Const STR_QUOTE As String = """"
...and then I use that constant for concatenating. I wish I'd named it strQ instead, though, as the name is too long. But I've been using it for more than a decade so it's too hard for me to change! This would work:
Global Const strQ As String = """"
strLocalSql = "SELECT tblEventTypeList.EventType" & _
" FROM tblEventTypeList" & _
" WHERE tblEventTypeList.[EventPage] = " _
& strQ & ts & strQ & _
" ORDER BY tblEventTypeList.[EventType];"
...but of course, that's only correct if EvenPage is a string.