Årtal till text in i SQL satsen

Jag försöker få in värdet av variabeln "aris" i SQL satsen nedan
det är ju dock av modellen årtalet 2005 och inte texten 2005
"datis" funkar ju dock som det är tänkt

<%
If Request.QueryString("sida") <> "" Then

sidvarde = Request.QueryString("sida")

Else

sidvarde = Date
End If
%>
<% IF sidvarde < "2005-01-01" OR sidvarde > "2009-01-01" Then %>
bla bla ... inte klart än...
<%
ELSE
%>
<%
nasta = DateAdd("M", 1, sidvarde)
forra = DateAdd("M", -1, sidvarde)
%>
<%datis = Month(sidvarde)%>
<%aris = Year(sidvarde)%>

<%skip 	=  DatePart("w", datis & "/1-"&aris, vbMonday)-1 %>

<%
Manad = Array("December","Januari","Februari","Mars","April","Maj","Juni","Juli","Augusti","September","Oktober","November","December","Januari")
f = datis -1
n = datis +1
%>

<!--#INCLUDE file="adovbs.inc"--> 
<% Set connect = Server.CreateObject("ADODB.connection")
connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\home1\domanen\db\db2.mdb" 
%>
<%
SQL = "SELECT * FROM  '" & aris & "'   WHERE manad = '" & datis & "' "	

set Rs = connect.execute(SQL) 
%>

<%response.write aris%>

så retuneras 2005