Ayuuuudddddaaaa!

[virla]

Tengo en un include llamado logo.asp una llamada a la base de datos para consultar la fecha y poner otros datos mas dentro del logo ahora yo necesito poner en el index donde esta el include, notas relacionadas con la misma fecha como hago?
lo que hice yo es esto en el include
<%
Response.Buffer = true
dim cnn,rst,ft
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/xxxx.mdb")
sqltext = "SELECT * FROM tb"
rst.Open sqltext,cnn,3,3
rst.movelast
session("ft")=rst("fechaBase")
%>
y en el index
<%
Set Con = Server.CreateObject("ADODB.Connection")
set result = Server.CreateObject("ADODB.RecordSet")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/bdDiario.mdb"))
ft1=session("ft")
sql = "SELECT * FROM tbDiario WHERE Fecha='"&ft1&"'"

'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
*) set result = Con.Execute(sql)
%>
pero me sale este error
Tipo de error:
Microsoft JET Database Engine (0x80040E07)
No coinciden los tipos de datos en la expresión de criterios.
*) aca esta el error