Hola que Tal buen dia, tengo una caso bastante raro o probablemente no este bien programado por eso acudo a su valiosa ayuda bueno el problema:
 
1.- Tengo mi base de datos en access 2003
2.- un campo con el nombre EntradaFecha
3.- El tipo de Datos es Fecha/Hora
4.- El Formato es Fecha Corta 
Esto es lo que tengo en la base de datos y mi consulta debe de llevar un rango de fechas y aplico este sentencia:  
Código:
 rs.Open "SELECT * FROM Entradas_Almacen WHERE EntradaFecha " & "BETWEEN #" & Format(TxtFechaIni, "MM/dd/yyyy") & "# " & _
                                                   "AND #" & Format(TxtFechaFin, "MM/dd/yyyy") & "# " & _
                                                   "AND EntradaSalida = '" & TextEntrada.Text & "' ORDER BY MovimientoConsecutivo ASC", cnn, adOpenStatic, adLockOptimistic
  y muestro mis datos en una Grilla ahora el gran problema:
Las fechas me muestra algunas con formato dd-MM-yyyy y otras me las muestras con formato MM-dd-yyyy 
aunque le digo que aplique este formato: 
Código:
 MshFlexPreview.TextMatrix(Fila, 2) = Format(MshFlexPreview.TextMatrix(Fila, 2), "dd-MM-yyyy")
  no se si mi consulta este mal estructurado o estoy aplicando mal los rango de fechas, la verdad que he buscado y no he podido dar con la solución. 
Cualquier aporte se agradece y por lo pronto gracias a todos que leen este post.