Converter Variável

Bom Dia,

Estou fazendo um sistema que a pessoa informa a data pelo formulário e eu desmembro a mesma para que tenho somente o ano que a pessoal digitou.

Criei um banco de dados com a tabela ano com o campo texto e inseri os anos nela tipo 2014, 2015 etc

Recebo os dados do formulário com a data e desmembro utilizando o script abaixo, logo crio uma consulta recebendo a variável so que não dá certo.

data = request.form("data")
dia = response.write (day(data)&" / ")
mes = response.write (month(data)&" / ")
ano = response.write (year(data))

Set Consulta01 = Server.CreateObject("ADODB.Recordset")
Consulta01.Open "SELECT * FROM ano Where ano = '"&ano&"'",Conexao

While not Consulta01.EOF
ano= Consulta01.Fields.Item("ano").Value
Consulta01.MoveNext()
Wend

quando coloco a variavel ano recebendo direto da certo tipo:

data = "2014" ele aceita

quando desmembro o ano e recebo a variável ano como no script ele dá erro. Não sei se tenho que transformar a variável em texto antes de usar. Obrigado,