Data Maluca com ACCESS

Tipo assim estou com um problema até que curioso da inserir data via ASP no Access 2007 (a data do access esta no formato pt/br).

o problema é o seguinte

tipo se a data é assim: 08/12/2009 o sistema insere no access a data no formata americano, ou seja 12/08/2009, mas se a data é 13/12/2009 o sistema insere a data no formato brasileiro.

Já fiz de tudo por exemplo:

<%Session.LCID = 1046%>
usei funções:

Function FormataData(Data)
If Data <> "" Then FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data)
End Function

ou

Function formataData2(formato,data,separador,lcidPais)
Dim dia, mes, ano
Dim novaData
if isnull(lcidPais) or lcidPais="" then
lcidPais = 1046
end if
Session.LCID = cint(lcidPais)
dia = right("0"&day(data),2)
mes = right("0"&month(data),2)
ano = right("0"&year(data),4)
formato = ucase(formato)
formato = replace(formato,"-","")
formato = replace(formato,"/","")
formato = replace(formato,".","")
formato = replace(formato,"Y","A")

 Select case formato
 case "DDMMAAAA"
 novaData = dia&separador&mes&separador&ano
 case "DDMMAA"
 novaData = dia&separador&mes&separador&right(ano,2)
 case "MMDDAAAA"
 novaData = mes&separador&dia&separador&ano
 case "MMDDAA"
 novaData = mes&separador&dia&separador&right(ano,2)
 case "AAAADDMM"
 novaData = ano&separador&dia&separador&mes
 case "AADDMM"
 novaData = right(ano,2)&separador&dia&separador&mes
 case "AAAAMMDD"
 novaData = ano&separador&mes&separador&dia
 case "AAMMDD"
 novaData = right(ano,2)&separador&mes&separador&dia
 case else
 novaData = "ERRO"
 End Select
 formataData2 = novaData

End Function

'####### Formata a data para BR ou EN
'Autor: Jonathan Cardozo
'Data: 25/04/2007
Function formataDataNew(data,formato,separador)
'data = formato DD-MM-AAAA ou AAAA-MM-DD
'formato = inteiro de 0 ou 1. 0(zero) formato BR e 1 formato EN
'separador = char que separa os valores da data
data = replace(data,"/","-")
data = replace(data,".","-")
if isdate(data)=false then
Response.write("Data Inválida")
Response.End()
end if
'Formato 1 para DD-MM-AAAA e 0 para AAAA-MM-DD
if formato = 1 then
IntDia = right("0"&day(data),2)
IntMes = right("0"&month(data),2)
IntAno = year(data)
formataData = IntDia&separador&IntMes&separador&IntAno
elseif formato = 0 then
IntDia = right("0"&day(data),2)
IntMes = right("0"&month(data),2)
IntAno = year(data)
formataData = IntAno&separador&IntMes&separador&IntDia
else
response.write("ERRO")
end if
End Function
para inserir no access estou fazendo assim:

user = trim(replace(Request.form("colunist"),"'",""))
titulo = trim(replace(Request.form("titulo"),"'",""))
sContent = Replace(Request.Form("txtContent"),"'","")
dataC = trim(replace(Request.Form("dataCad"),"'",""))
'dataC = formataData(dataC)
'response.write dataC
'response.end
Call Abre()
StrI = "Insert into News(News,Data_news,News_body,Id_user) Values('"& titulo &"',#"& dataC &"#,'"& sContent &"',"& user &")"
'response.write StrI
'response.end
Conn.Execute(StrI)
e continua dando o mesmo problema... o mais estranho é q semana passada funcionava certinho...

qualquer ajuda está valendo!