[Filtro de procura por data no Access]

Faço pesquisa de registros no Access com datas (de inicio e de fim)
Uso 2 modos de procura, ambos dão o mesmo erro:

Modo 1:
SQL = "Select * From Pedidos "
SQL = SQL & "WHERE Data >= #" & DataInicio & "#"                
SQL = SQL & "AND Data <= #" & DataFim & "# ORDER BY Ordem ASC"  

Modo 2:
SQL = "Select * From Pedidos "
SQL = SQL & "WHERE Data BETWEEN #" & DataInicio & "# AND #" & DataFim & "# ORDER BY Ordem ASC" 

Tem algumas situações em que a busca não traz registros corretos. Em muitas outras buscas, dão perfeitamente certo.

Ex: há registros datados de 28/11/2022 e 29/11/2022 no Access

Se coloco DataInicio = 28/11/2022 e DataFim = 28/11/2022, a procura diz que não encontrou nenhum registro de 28/11/2022
Se coloco DataInicio = 28/11/2022 e DataFim = 29/11/2022, a procura traz somente registros de 28/11/2022, nada de 29/11/2022
Se Se coloco DataInicio = 28/11/2022 e DataFim = 30/11/2022, a procura traz registros de 28/11/2022 e de 29/11/2022
 

Tentei de tudo para resolver esse  problema, mas infelizmente sem sucesso.
Alguém pode ajudar? Obrigado desde já!
 

[WebBrowser]

Uso o WebBrowser (WB) já há algum tempo e nunca tive problema na execução. Sempre usei o WB dentro do modo One-page do formulário.

Agora tenho um projeto que usa o Multi-page. Inseri uma nova página no Multi-page e lá coloquei o objeto WB para visualizar PDF. Não sei por qual motivo, muitas vezes (ou seja, nem sempre) a janela do WB não aparece ao abrir o formulário ou quando eu saio e volto à página que contém o WB. No modo editor, o WB está intacto. O que pode ser?

[Problema VBA]

Tenho um problema no VBA que apesar de super simples não consigo resolver.

Na planilha P1, a célula A10 é a soma dos valores inseridos nas células A2 a A9, em percentual. Células sem dado inserido significam ZERO.

Por que dá erro se coloco A2=20%, A3=70% e A4=10% se a soma é 100%? Não dá erro nas outras combinações. Ex: A2=10%, A3=70% e A4=20% 

Testei com duas subrotinas: uma com IF e outra com CASE. 

 

Sub Verifica_If()
Valor = Sheets("P1").Range("A10")
    If Valor <> 1 Then
        MsgBox ("Errado, a soma deve ser 100%!")
        GoTo Fim
    Else
        MsgBox ("OK, a soma é 100%!")
    End If
Fim:
End Sub

 

Sub Verifica_Case()
Valor = Sheets("P1").Range("A10")
    Select Case Valor
       Case Is = 1
          MsgBox ("OK, a soma é 100%!")
       Case Is < 1
          MsgBox ("Errado, a soma deve ser 100%!")
       Case Is > 1
          MsgBox ("Errado, a soma deve ser 100%!")
    End Select
End Sub