[Resolvido]Extração em Excel Usando Select e Between

Boa tarde a todos!!!

Galera por gentileza...estou extraindo em Excel os dados de uma tabela conforme abaixo:

Acontece que nem sempre a consulta é realizada. Exemplo: Quando coloco 06/11/2018 à 20/11/2018 ele me traz a informação do dia 06/11/2018. Mas quando coloco de 06/11/2018 à 06/11/2018, ele me retorna que não existe registro neste periodo.

Obs: Existe um único registro de 06/11/2018.

SQL = "SELECT * FROM tbl_Manutenção WHERE Data_Manutencao BETWEEN #" & Me.data1 & "# AND #" & Me.data2 _
& "# AND Servico='" & Me.txt_Servico & "' AND Status='REALIZADO' ORDER BY Data_Manutencao DESC"

' Executa Select
Set rst_1 = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
   
' Verifica se há registro nas consultas
If rst_1.BOF = True Then Result_1 = "Sem registros"

' Se não houver registro na base sai da macro
If Result_1 = "Sem registros" Then
       MsgBox "Nenhum registro localizado!", vbQuestion
       Result_1 = Empty
       Exit Sub
   End If
   
   ' True = Tornar arquivo visivel, False = Não visivel
   appExcel.Visible = True
   
   ' Nomeia primeira Guia
   appExcel.Worksheets(1).Name = "Manutenção"
   
   ' Se Select for <> vazio, realiza preenchimento da Guia 1
   If Result_1 = Empty Then
   
       appExcel.Worksheets(1).select
       appExcel.ActiveSheet.Range("A1") = "ID MANUTENÇÃO"
       appExcel.ActiveSheet.Range("B1") = "DATA CADASTRO"
       appExcel.ActiveSheet.Range("C1") = "DATA MANUTENÇÃO"
       appExcel.ActiveSheet.Range("D1") = "FILIAL"
       appExcel.ActiveSheet.Range("E1") = "OPERAÇÃO"
       appExcel.ActiveSheet.Range("F1") = "PLACA"
       appExcel.ActiveSheet.Range("G1") = "TIPO"
       appExcel.ActiveSheet.Range("H1") = "SERVIÇO"
       appExcel.ActiveSheet.Range("I1") = "DESCRIÇÃO"
       appExcel.ActiveSheet.Range("J1") = "MOTIVO"
       appExcel.ActiveSheet.Range("K1") = "MARCA DE FOGO"
       appExcel.ActiveSheet.Range("L1") = "RETORNO RECAPEAMENTO"
       appExcel.ActiveSheet.Range("M1") = "KM"
       appExcel.ActiveSheet.Range("N1") = "PRESTADOR"
       appExcel.ActiveSheet.Range("O1") = "ORDEM DE SERVIÇO"
       appExcel.ActiveSheet.Range("P1") = "MECANICO"
       appExcel.ActiveSheet.Range("Q1") = "USUARIO"
       appExcel.ActiveSheet.Range("R1") = "STATUS"
       
       appExcel.ActiveSheet.Range("A2").select
       appExcel.ActiveCell.CopyFromRecordset rst_1
       appExcel.columns.AutoFit
       
   End If

Desde já agradeço a todos.

boa tarde,
comigo aconteceu isso varias vezes.rs
tive q transformar a data em formato americado, ou seja,
06/11/2018 = 11/06/2018

se vc não fizer a conversao o access da umas bugada mesmo, as vezes ele trabalha em formato brasileiro e as vezes nao.
vai entender!
veja se no seu caso funciona se fazer essa conversao de datas.

abraços

Ronaldo, bom dia.

Cara muito obrigado. Funcionou perfeitamente kkkkkkkk

Opa é nois.
O fórum agradece o retorno.