Hola Willian.
- Una alternativa es que uses el programador de tareas.
- Sin revisar muy a fondo el código y asumiendo que el programa no se esta deteniendo, puede ser que el inconveniente este aca:
Código:
If CDate(tiempo) = Data2.Recordset!respaldo Then
intenta con
if cdate(format(tiempo,"hh:mm") ) = cdate(format(Data2.Recordset!respaldo,"hh:mm")) then
Cordial saludo