Hola Malex6, como te prometí voy a intentar responder tu pregunta.
1º - No sé si esto te pueda estar causando el error pero cuando hacemos una consulta de selección sencilla escogemos el cursor 1. No sé por qué, pero estás usando el 2
Entonces, cambia:
Tabla.open Temp,conexion,2,3,1
Por:
Tabla.open Temp,conexion, 1
2º - Yo jamás he usado con Access el signo # para delimitar las fechas. No es necesario. Hay un convencimiento general entre la gente de que si lo es. Puede que esto sea tu problema, aunque no lo aseguro.
Entonces, cambia:
temp="select santoral from tabla1 where fecha=#"& fechaActual &"#"'
Por:
temp = "Select Santoral From Tabla1 Where Fecha = '" & FechaActual & "'"
3º - Otra cosa que pudiera ser el problema es que al insertar un registro, insertáramos la fecha como Now() (Ahora(), que devuelve fecha y hora) en vez de Date() (Fecha(), que devuelve sólo la fecha).
Si así fuera, al ir a consultar la base de datos, los registros nunca coincidirían porque tendríamos que darle también la hora exacta, hasta con segundos.
Si así fuera la forma de comparar las fechas sería:
... where Fecha > OtraFecha And Fecha < OtraFecha + 1
Bueno, espero que esto te solucione el problema. Un saludo Malex6. ;) ;) ;)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>