Problema con Consulta Sql

[mc_quake]

compadre ya se lo que pasa lo descubri ahora espero que tu me puedas ayudar lo que sucede es que cuando yo ingreso el numero al formulario yo lo rescato desde la pagina asp con un Request.Form("fechainicio") mejor te pondre el codigo

<%
Dim conexion, registros, sql

fechainicio = Request.Form("fechainicio")
if IsDate(fechainicio) then
fechainicio=CDate(fechainicio)
else
fechainicio=""
end if

function FormateaFecha(fecha)
dia = day(fecha)
mes = Month(fecha)
if len(dia) = 1 then dia="0"&dia
if len(mes) = 1 then mes="0"&mes
FormateaFecha = dia&"-"&mes&"-"&year(fecha)
End function

'response.write fecha

'response.write fechainicio

'FormateaFecha(fechainicio)
Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeGestion"

Set registros = Server.CreateObject ("ADODB.RecordSet")
fechainicio = FormateaFecha(fechainicio)
response.write fechainicio
sql = "SELECT * FROM InforGestion WHERE Origen = 'CCP' AND Fecha_entrada = #" &FormateaFecha(fechainicio)& "# "

registros.Open sql, conexion

ccp = 0
while not registros.EOF
ccp = ccp + 1
registros.MoveNext
Wend
registros.Close
Set registros = Nothing
conexion.close
Set conexion = Nothing
Response.Write ccp

el problema esta en que cuando consulto la Fecha_entrada = #" &FormateaFecha(fechainicio)& "#
funciona vien solo con la fecha 01/01/2006 ya que el diaa y el mes son iguales
en cambio si pongo para buscar el 02/01/2006 no me muestra nada por que en ves de buscar el 02/01/2006 busca el 01/02/2006 eso lo comprobe cambiado una de las fechas de mi base de datoa a 01/02/2006 y el response.write cpp me dio como resultado 1

dime como soluciono ese problema es urgente compadre