Problema com Calendario - Agenda de tarefas

gente to com um problema....fiz o calendario e ele nao da erro

no caso ele tinha q adicionar um dia pra funcionar, mas só q ele só funciona qnd nao coloco a função q abre o banco de dados

qnd eu tiro o comentario ele nao adiciona 1 dia à data..nao sei se da pra entender...vou colocar as funçoes aqui

primeira função q cria o calendario... tem uma variavel chamada Memo = q tah comentada q eh o problema se eu deixo comentada funciona normal

mas se tiro para de funcionar...essa variavel Memo recebe uma função...vou colocar as duas aqui

sub Calendario(mes, ano, user)
vuser = user
dia = dateSerial(ano, mes, 1)
mes= month(dia)
ano = year(dia)
FirstDayofMonth = weekday(dia)
Memo = ""

dia = DateSerial(ano, mes, 1)

for j = 1 to 6

 response.write("<tr>")
 for i=vbSunday to vbSaturday
 cellstr = ""
 color = "#CCCCCC"

 if weekday(dia) = i and month(dia) = mes then
 color = "#FFFFFF"
 if (day(dia) = day(now)) and (month(dia)=month(now)) and (year(dia) = year(now)) then color = "#FFFF99" end if
 cellstr = day(dia)
 'Memo = tarefaCalendario(dia,vuser)
 response.write(dia)
 if Memo = "" then
 tarefinha = "<a href=#><img src=images/transparencia.png alt='incluir tarefa' border=0 align=absmiddle /></a>"
 else
 tarefinha = "<a href=#>"& Corta(Memo,15)&"</a>"
 end if
 dia = Dateadd("d",1,dia)

 end if

 calendar = "<td bgcolor="& color &" width=135 height=85 valign=top>"

 calendar = calendar & "<table border=0 cellpadding=0 cellspacing=0>"
 calendar = calendar & "<tr>"
 calendar = calendar & "<td bgcolor=#E9E9E9 align=right class=Verdana_9px width=135>"
 calendar = calendar	& cellstr &"</td>"
 calendar = calendar & "</tr>"
 calendar = calendar & "<tr>"
 calendar = calendar & "<td bgcolor="&color&">"
 calendar = calendar & tarefinha
 calendar = calendar & "</td>"
 calendar = calendar & "</tr>"
 calendar = calendar & "</table>"
 calendar = calendar & "</td>"
 response.Write(calendar)

 next
 response.write("</tr>")
	next

end sub
agora a função q abre o banco

Function tarefaCalendario(dt, vuser)

meses = month(dt)
anos = year(dt)
dias = day(dt)

	Select case meses
 case 1
 mes = "Jan"
 case 2
 mes = "Feb"
 case 3
 mes = "Mar"
 case 4
 mes = "Apr"
 case 5
 mes = "May"
 case 6
 mes = "Jun"
 case 7
 mes = "Jul"
 case 8
 mes = "Aug"
 case 9
 mes = "Sep"
 case 10
 mes = "Oct"
 case 11
 mes = "Nov"
 case 12
 mes = "Dez"
 end select
	dta = mes & "%" & dias & "%" & anos
	call conecta
	strSQL=("Select * from tbCalendario where nomUser like '%" & vuser & "%' and date like '%" & dta & "%'")
	response.Write(strSQL)

	call AbreRs(strSQL)
	if not rs.EOF then

 if rs.recordcount > 0 then
 tarefaCalendario= rs("memo")
 response.write("teste")
 else
 tarefaCalendario = ""
 end if
	else

 tarefaCalendario = ""

	end if

end Function
imagem dele teoricamente funcionando sem a função q conecta com o banco

/applications/core/interface/imageproxy/imageproxy.php?img=http://br.geocities.com/leandrocalux/funcionando.JPG&key=cf7896e130930a2d986a1a4c38bd42233253016be7cc83c8ceecc5122f90763d" alt="Imagem Postada" />

agora qnd eu descomento o Memo

[/img]