[Resolvido]Erro Estranho - Resultado DCount

Bom dia a todos,
Pessoal, uma dúvida que já bati a cabeça e não entendi por que isto.
Está me retornando todos os dias o valor = 3 em vez de ser "0"(zero) caso não tenha nenhuma saída do dia corrente.
Notei isto alguns dias depois da virada de ano para 2023.

Detalhes:
Rótulo no FrmMenu (lblSaidas), para mostrar o resultado conforme o DCount.

'Abrir do formulário Menu
----------------------------------------------
Private Sub Form_Open(Cancel As Integer)
Call Carregar_Saidas
End Sub

'Módulo: ModSaidas
'----------------------------------------------
Function Carregar_Saidas()
Dim IntS As Integer

IntS = DCount("[tipoSaidaID]", "[tbClientes]", "Format([dataSaida],'dd/mm/yyyy') = Format(Date(),'dd/mm/yyyy') And [tipoSaidaID] = 2 or [tipoSaidaID] = 3 or [tipoSaidaID] = 5")
Forms![FrmMenu].lblSaidas.Caption = IntS

End Function


'Tabelas
'----------------------------------------------
tbClientes(clienteID, clienteNome, tipoSaidaID)
tbSaidas (tipoSaidaID, tipoSaida)

Desde já fico agradecido pela ajuda!

Boa noite Alexandre,
Atualizei mas ficou na mesma situação.

Bom dia,

Copiei e colei a sua linha de código para não errar uma vírgula, mas não deu certo.
Não aceita a vírgula antes do zero e se retirar também não funciona.
Uso o MS Office 2013

Não sei se é o correto, mas consegui resolver colocando menos três no final do código.

IntS = DCount("[clientesID]", "[tbClientes]", "Format([dataSaida],'dd/mm/yyyy') = Format(Date(),'dd/mm/yyyy') And [tipoSaidaID] = 2 or [tipoSaidaID] = 3 or [tipoSaidaID] = 5") - 3

Só corrigi aqui no início é o ID do cliente "clientesID"

Funcionando agora!