Problemas com Data no Access / ASP

Esta dúvida é chatinha então por favor não me falem que e so alterar a configuração huahua que isso não é sei la

quando utilizo banco de dados ACCESS ele grava a data assim

eu selecione campo tipo data , data geral que fica dd/mm/yyyy hh:nn:ss

dd - Dia

mm - Mês

yyyy - Ano

hh - Hora

nn - Minutos

ss - Segundos

Só que quando ele grava tipo se hoje for 27/08/2005 tranquilo ele grava perfeitamente so que se hoje for dia 05/08 ja era ele grava tanto 05/08 como 08/05 ou seja ele altera a posição do dia se for menor que 12 ele pensa que é mes ou sei la oq o access pensa

Quando eu grava eu uso função para formatar a data DataBrazil(Now(), "dd/mm/yyyy hh:nn:ss")

Ou seja ele formata a data para 07/08/2005 02:36:10

então grava perfeitamente no banco de dados até mesmo no codigo SQL eu vejo antes de executar e esta indo certo apenas o access grava errado

só que ai podem falar pode ser a configuração da página, porém não é pois uso

session.lcid = 1046 '' formata para o brasil os valores

E eu não queria usar campo do tipo texto pois se eu precisar faezr um Where por campo de data el ira perder e nao poderei faezr então o campo precisa ser tipo data , no mysql eu uso e vai sem problemas so no access eu tive e tenho problemas com data taanto que migrei para o mysql por causa destes problemas e por o mysql ser mais melhor de bom abraços fico no aguardo se alguem tigver uma luz irei agradecer abraços e obrigado pela atenção

A função da ta que fiz abraços

ASP

[*] Function DataBrazil(sData,sFormato)

[*]

[*] IF isDate(sData) = False THEN Exit Function

[*]

[*] sDia = Day( sData )

[*] sMes = Month( sData )

[*] sHoras = Hour( sData )

[*] sMinutos = Minute( sData )

[*] sSegundos = Second( sData )

[*]

[*] If sDia <= 9 Then sDia = "0" & sDia

[*] If sMes <= 9 Then sMes = "0" & sMes

[*] If sHoras <= 9 Then sHoras = "0" & sHoras

[*] If sMinutos <= 9 Then sMinutos = "0" & sMinutos

[*] If sSegundos <= 9 Then sSegundos = "0" & sSegundos

[*]

[*] DataBrazil = sFormato

[*] DataBrazil = Replace(DataBrazil,"dd",sDia)

[*] DataBrazil = Replace(DataBrazil,"mm",sMes)

[*] DataBrazil = Replace(DataBrazil,"MM",MonthName(sMes,False))

[*] DataBrazil = Replace(DataBrazil,"yyyy",Year(sData))

[*] DataBrazil = Replace(DataBrazil,"yy",Right(Year(sData),2))

[*] DataBrazil = Replace(DataBrazil,"hh",sHoras)

[*] DataBrazil = Replace(DataBrazil,"nn",sMinutos)

[*] DataBrazil = Replace(DataBrazil,"ss",sSegundos)

[*]

[*] End Function

[*]