Hola
En principio veo que no estas igualando a nada el valor de fache, es decir, no estas indicando que campo de tu base de datos tiene que ser igual que la fecha, tendría que ser algo así como:
Código:
where CAMPOFECHA=# " & fecha & " #", MiConexion, adOpenDynamic, adLockOptimistic
--Saludos--