Função localizar data coincidente

Boa noite

Gostaria de ajuda para o seguinte:

Tenho um formulário onde digito o nome do funcionário e uma data de saída. Tenho uma tabela onde consta os funcionários com vários períodos de viagens ( exemplo: Data inicial: 15/01 Data Final: 20/01 ) . O que eu gostaria é que ao atualizar a data no formulário fosse feita busca na tabela para verificar se o funcionário estaria em viagem a partir da data digitada no formulário , e então emitir aviso de que o funcionário encontra-se em viagem.

obrigado

Ola

Nao testei, mas acho que algo assim deveria funcionar, embora deva existir algum problema na sintax do findFirst, porque adaptei de uma situaçao diferente que eu tinha

Código:

Dim rst As Recordset
dim nf as integer
nf = 2   ' procurar no funcionario numero 2

      Set rst = Me.RecordsetClone
        rst.FindFirst ("[funcionarioID] = " & nf & " AND [DataViagem] > #" & Format(DataInicial, "mm\/dd\/yy") & "#" & " AND  & [DataViagem] < #" & Format(DataFinal, "mm\/dd\/yy") & "#" & ""'")


           if not rst.noMatch then
               msgbox("funcionario encontra-se em viagem")
           end if