Ragazzi ho questo errore:
Microsoft JET Database Engine error '80040e07'

Data type mismatch in criteria expression.

/excel_fin/common.asp, line 29

La sessione è una data es: 14/01/2011
dove ho sbagliato?

questo è il file common.asp
<%
Dim TB_Richiesta__MMDataDal
TB_Richiesta__MMDataDal = "1"
If (Session("VS_DataDal") <> "") Then
TB_Richiesta__MMDataDal = Session("VS_DataDal")
End If
%>
<%
'Evito la memorizzazione in cache/proxy della pagina
'e cancello le sessioni del pannello riservato
response.expires = -1500
response.AddHeader "PRAGMA", "NO-CACHE"
response.CacheControl = "PRIVATE"

session.LCID = 1040

dbPath = server.mapPath("../mdb-database/db_fineticaRich.mdb")
dbConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& dbpath

'Lista dei clienti
'INPUT: connessione
'OUTPUT: array a due dimensioni con le informazioni del recordset
Dim rs_cmd

sub listaClienti(objConn,byRef listaClientiOutput)
sql = "SELECT * FROM TB_Richiesta WHERE data_lavorazione = '" & TB_Richiesta__MMDataDal & "' "

set rs = server.createObject("ADODB.Recordset")
rs.open sql, objConn, 1, 3
if not rs.eof then
listaClientiOutput = rs.getrows()
end if
rs.close
set rs = nothing
end sub

sub dbConnect(objConn,connString)
set objConn = server.createObject("ADODB.Connection")
objConn.open connString
end sub

sub dbDisconnect(objConn)
objConn.close
set objConn = nothing
end sub

'Genrazione di un numero casuale per nominare il file Excel
Function genera(Max, Min, MaxChar)
Dim codice, cifra
For i = 1 To MaxChar
Randomize timer
codice = Int((Max * Rnd()) + 1)
cifra = cifra & codice
Next
genera = cifra
End Function
%>

Grazie a tutti