str_Manifestazione = Request("manifestazione")
str_settoreMerceologico = request("settoremerceologico")
'str_data_Da = FormatDateTime(request("data_da"),2)
'str_data_A = FormatDateTime(request("data_a"),2)
str_data_Da = request("data_da")
str_data_A = request("data_a")

'Esecuzione di comandi SQL
if str_Manifestazione ="" then
str_Manifestazione="%"
end if
if str_settoreMerceologico ="" then
str_settoreMerceologico="%"
end if


Set obj_rs = Server.CreateObject("ADODB.Recordset")

str_Sql="SELECT t_Fiera.*, t_Manifestazione.IdManifestazione, t_Manifestazione.Manifestazione, t_SettoreMerceologico.IdsettoreMerceologico, t_SettoreMerceologico.TipoSettore FROM t_SettoreMerceologico INNER JOIN (t_Manifestazione INNER JOIN t_Fiera ON t_Manifestazione.IdManifestazione = t_Fiera.IdManifestazione) ON t_SettoreMerceologico.IdsettoreMerceologico = t_Manifestazione.IdsettoreMerceologico WHERE Manifestazione Like '" &str_Manifestazione& "%' AND TipoSettore Like '" &str_settoreMerceologico& "%'"

if str_data_Da <> "" AND str_data_A <> "" then
str_Sql = str_Sql & "AND Data between '"&str_data_Da&"' AND '"&str_data_A&"'"
end if

obj_rs.Open str_sql, obj_conn


quando entra nell' if mi di da il seguente errore:
Tipi di dati non corrispondenti nell'espressione criterio.

Ho provato a formattare con la funzione formatdatetime i valori che mi restituisce il form ma non cambia nulla.
Avete qualche idea.

Molte grazie

alex