[Resolvido]Checar se a Hora está dentro do Intervalo

sSQL = "SELECT COUNT(id_indicacao) AS cnt FROM tb_indicacaodthr"
    sSQL = sSQL & " WHERE Id_MedicoInd= " & Me.id_medico & " "
    sSQL = sSQL & " AND dtDataInd=#" & Format(Me.dtData, "mm/dd/yyyy") & "# "
    sSQL = sSQL & " AND hrIni <=#" & Me!agHora
    sSQL = sSQL & "# AND hrFin >= #" & Me!agHora & "#; "

Public Function fncChecaAgendaHora() As Boolean
On Error GoTo trata_erro
Dim sSQL            As String
Dim db              As DAO.Database
Dim rs              As DAO.Recordset
Dim blnAgendado     As Boolean

    Set db = CurrentDb
    sSQL = "SELECT * FROM tb_indicacaodthr"
    sSQL = sSQL & " WHERE Id_MedicoInd= " & Me.id_medico & " "
    sSQL = sSQL & " AND dtDataInd=#" & Format(Me.dtData, "mm/dd/yyyy") & "#;"
       
    Set rs = db.OpenRecordset(sSQL)
    Do While Not rs.EOF
        If Eval("#" & Me!agHora & "# Between #" & rs!hrIni & "# AND #" & rs!hrfin & "#") Then blnAgendado = True
        rs.MoveNext
    Loop
    rs.Close
    fncChecaAgendaHora = blnAgendado
    Set rs = Nothing

    Exit Function

trata_erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Function

End Function