[Resolvido]Dlookup em formulario

Boa noite.
Estou trabalhando em um projeto no qual estou trabalhando em um pequeno projeto e estou tentando fazer um Dlookup e não funcionou como o previsto
Na tabela "Tab_EscalaMinistro" , possui 3 campos : Data_EscalaMinistro , Escala_Ministro1;Escala_Ministro2

No formulario Frm_EscalLeitores possuo o campo Data_EscalaLeitores e Campo Primeiro_Ministro e Segundo_Ministro.

Quando no formulario  Frm_EscalLeitores, quando digitar a data desejado no campo  Data_EscalaLeitores ele procura a informação na tabela Tab_EscalaMinistro e no formulario Frm_EscalLeitores o campo Primeiro_Ministro recebe Escala_Ministro1 e Segundo_Ministro recebe Escala_Ministro2

Segue a sintaxe utilizada que não funcionou

Private Sub Data_EscalaLeitores_LostFocus()
On Error Resume Next
  Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Data_EscalaMinistro='") ' & Me.Data_EscalaLeitores & "'")
End Sub

Bom dia robertonl,

Teste o seguinte:

Código:

Private Sub Data_EscalaLeitores_LostFocus()
On Error Resume Next

Dim dData as Date

dData = Me.Data_EscalaLeitores

Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Data_EscalaMinistro = #" & dData & "#")

End Sub