Dlookup com 2 critérios

Pessoal, boa tarde!

Tenho uma tabela onde insiro o numero de refeições servidas num período por dia.
Antes de atualizar, peço que verifique na tabela de frequentes no período do dia e o valor de refeições servidas não pode ser maior que o numero de frequentes.
Para o primeira data ele verifica, mas para as demais não! já cai direto na mensagem e só funciona se eu digitar zero.

Vejam o código.

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim VerificaFrequentes As Date
'busca na tabela Frequencia no periodo o numero de frequentes no periodo e na data
VerificaFrequentes = Nz(DLookup("[Frequencia]", "TblFreqPeriodo", "[Periodo]=" & Me.Periodo & " and [Data] = #" & Me.Data & "#"), 0)

'verifica se a quantidade servida é igual ou inferior ao numero de frequentes
If Me.servido.Value > VerificaFrequentes Then
  MsgBox "O número de refeições servidas não pode ser maior que o numero de frequentes no periodo!" & vbCrLf & "Por favor verifique!", vbCritical, "MEDGAT - Erro ao informar as refeições!"
  Cancel = True
End If
End Sub

agradeço quem puder me dar um auxilio...

Amigo, datas devem ser formatadas para padrao americano "mm/dd/yyyy" sempre que utilizadas no VB.

# " & Format(CampoData, "mm/dd/yyyy") & " #

VerificaFrequentes = Nz(DLookup("[Frequencia]", "TblFreqPeriodo", "[Periodo]=" & Me.Periodo & " and [Data] = # " & Format(me.[data], "mm/dd/yyyy") & " #"), 0)

Veja se esse não é o seu problema!

Revomendo mudar o nome desses campos "Data" pode lhe trazer problemas!

Fabio Paes, obrigado pela ajuda...

Ao invés de consultar pela data, período e faixa... mudei para referencia, período e faixa, mas mesmo assim não deu certo.

Vou anexar o BD caso alguém possa me ajudar...