LOGIN ENTRE INTERVALO DE HORA

Citação:

:
Olá pessoal tenho fiz um cadastro de LOGIN onde posso informar o intrvalo do horário em que o mesmo pode fazer login no sistema. No entanto não está funcionando. Tipo tempo na tabela USUARIOS os campos HORARIO_INICIAL e HORARIO_FINAL, se por exemplo tenho HORARIO_INICIAL=[Ô]16:00:00[Ô] e HORARIO_FINAL=[Ô]16:30:00[Ô] era para ele permitir o login do usuário neste intervalo de meio hora, no entanto, não entra. estou fazendo assim:

If Tabela!LOGIN_HORARIO = [Ô]S[Ô] Then
If Time <= Format(Tabela!HORARIO_INICIAL, [Ô]HH:mm:ss[Ô]) And Format(Tabela!HORARIO_FINAL, [Ô]HH:mm:ss[Ô]) <= Time Then
UsuarioLogado = Tabela!LOGIN
Unload Me
F_TELAPRICIPAL.lbl_usuariologado.Caption = [Ô]Usuário Logado: [Ô] & UsuarioLogado
F_TELAPRICIPAL.Show
Else
Call Chamar_Aviso([Ô]Horário Inválido[Ô], [Ô]O Login infirmado não está entre o intervalo de acesso permitido ao sistema. Entre em contato com o Administrador![Ô], [Ô]outro[Ô], [Ô]tempo[Ô])
End If
Else
UsuarioLogado = Tabela!LOGIN
Unload Me
F_TELAPRICIPAL.lbl_usuariologado.Caption = [Ô]Usuário Logado: [Ô] & UsuarioLogado
F_TELAPRICIPAL.Show
End If
End If