(Resolvido) compilation error '800a0409'

[Martinsrj]

Olá pessoal, boa tarde!

Estou com uma dúvida onde eu quero selecionar todos os campos de uma certa tabela, porem a coluna posicao_atual tem que estar todos como Ativado.

<%
Option Explicit
%>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd, rsDados, strSQL, var_cor, Ativado
strSQL = "SELECT * FROM tab_dadosprojeto"
strSQL = strSQL & " WHERE posicao_atual = Ativado
strSQL = strSQL & " order by data desc"
Call AbreConexao

Set rsDados = conbd_gd.Execute(strSQL)
Response.Charset="utf-8"
%>

Erro que aparece na tela:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/grupo_demanda/Projetos/projetos.asp, line 8

strSQL = strSQL & " WHERE posicao_atual = Ativado

-------------------------------------------------^

[bareta]

posicao_atual = 'Ativado'"

[Martinsrj]

Valeu bareta!

RESOLVIDO!!!!!!

strSQL = strSQL & " WHERE posicao_atual = 'Ativado'"

posicao_atual = 'Ativado'"