ayuda con fechas en db

[virla]

Tengo una base de datos que guardo los datos por fecha para despues ser mostrados, no muestra datos como se no huviera nada en la base que puede ser?
les dejo parte del codigo, capas esta mal puesta la variable
<%
Response.Buffer = true
dim cnn,rst,ft,ft1
' 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/bdDiario.mdb")
sqltext = "SELECT * FROM tbTapa"
rst.Open sqltext,cnn,3,3
rst.movelast
ft1=rst("fechaBase")
%>

Aca es donde llama los datos
-------------------------------------------------------------------------------
<%
sql = "SELECT * FROM tbDiario WHERE Fecha='ft1' and zona='1'"
set result = cnn.Execute(sql)
if not result.eof and not result.bof then
%>
-------------------------------------------------------------------------------

plis ayuda
PD: el campo de la fecha en texto