Agendador no SysTray

Pessoal desenvolvi o sistema de agendamento de reserva de carros, tudo funciona bem, porém coloquei o sistema para funcionar no systray e o codigo que verifica de tempo em tempo a tabela se ha reserva ou não, funciona quando quer.
Veja o codigo abaixo que está em um timer e me ajudem a detectar o erro. porque funciona quando quer??? Se lanço reserva toda hora!!!
ou seja: faltando uma hora para tal reserva o mesmo tem que maximizar o sistema e me mostrar tal reserva. Porem funciona hora sim ora não.

Veja o Codigo:

Private Sub Reserva_Timer()
On Error GoTo errado

Dim DataReservada As Date
Dim TimeAlarme As Date

DataReservada = Data1.Recordset.Fields("DataReservada")
TimeAlarme = Data1.Recordset.Fields("Horario")

If Format$(Hour(Time - TimeAlarme) & ":" & Minute(Time - TimeAlarme) & ":" & Second(Time - TimeAlarme), "hh:mm:ss") = TimeValue("01:00:00") Then
If DataReservada = Date Then
mnu_sobre_Click 'Levanta o sistema
txtPesquisa = TimeAlarme
txtPesquisaData = DataReservada
End If
End If

Exit Sub
errado:
Dim Numero_erro As String
Numero_erro = CStr(Err.Number)
If Numero_erro = "3021" Or "13" Then
Else
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.De ion)
Err.Clear
End If
End Sub

Marcelino Neto
VB6.0
Access97
Dao