Visual Basic para Aplicaciones - Ayuda con formato fecha

Hola tengo el siguiente inconveniente.
Estoy trabajando con una BD Access, tengo una tabla que contiene entre otros campos el campo fecha_canje tipo fecha/Hora
Cuando le doy guardar pese a que formateo la fecha se graba el dia como mes y el mes como dia
por ejemplo la fecha 08/01/2008 se graba 01/08/2008

Adjunto mi codigo please ayuda


Dim fecha_canje As Date
fecha_canje = DTPicker1.Value
fecha_canje = (Format$(fecha_canje, "dd/mm/yy"))

cn.Execute "update orden set cod_estado='" & dco_estado.BoundText & "' ,Hora_Entrega_Cliente='" & txt_hora_entrega & "',Hora_Salida_QS='" & txt_hora_salida_qs.Text & "', Cod_Motorizado='" & dco_moto.BoundText & "', Objeccion='" & txt_objeciones & "', cod_motivo='" & dco_motivo.BoundText & "', fecha_canje= #" & fecha_canje & "# where Num_Atencion ='" & txtnum.Text & "'"

HOLA QUE TAL

POR LO QUE VEO EN TU CODIGO, LO UNICO QUE ESTA MAL ES EL FORMATO QUE LE DAS A LA FECHA, EL FORMATO DEL AÑO Y EL ORDEN DEL MES Y DIA, SIEMPRE QUE INVOLUCRES EN UNA CONSULTA DE ACCESS LA FECHA, DEBES DE FORMATER LA FECHA COMO "MM/DD/YYYY"

fecha_canje = (Format$(fecha_canje, "mm/dd/yyyy"))

ESPERO TE SIRVA, SALUD2