Bueno, también puedes ahorrarte las múltiples asignaciones.
Código:
sql = sql & "SELECT * FROM " & _
"comunidad INNER JOIN " & _
"Tiendas ON " & _
"comunidad.idzona="" & Request.QueryString("idzona") & "" = sql = Tiendas.IdZONA =" & Request.QueryString("idzona") & _
" ORDER BY Tiendas.aliado, Tiendas.nombretienda asc"
Saludos