[Resolvido]Filtro com o Dlast....não executa, não aparece nada de nada

Essa duvida é de deixar qualquer um...careca mesmo !

Tenho o código abaixo....

Private Sub LstPrNor_Click()
Dim d1, d2 As Date
Dim d3
d1 = Now
d2 = LstPrNor.Column(5) ' data vigência
d3 = Me.LstPrNor.Column(3) ' motivo


If d1 > d2 Then
If MsgBox("Você escolheu um preço PASSADO !" & vbCrLf _
& "O Preço Vigente é :" & vbCrLf _
& "Data: " & DLast("nordtvig & ' Hora: '& NORHVIG", "[QryAtzNor]", "NORMOTEXT='d3'") & vbCrLf _
& "Confirme se é esse mesmo que deseja !", vbYesNo, "ATENÇÃO") = vbYes Then
Forms!frmcadastro.Form!NormotExt = Me.LstPrNor.Column(3)
Forms!frmcadastro.Form!PRVIG = Me.LstPrNor.Column(4)
Forms!frmcadastro.Form!PRLQD = Me.LstPrNor.Column(4)
DoCmd.Close
End If

O que ocorre é que eu preciso " pegar " o texto filtrar pela última data e hora referente aquele texto.
Se eu retirar o d3 da expressão o mesmo me traz um outro valor de dia e hora que não são referentes ao d3 que esta na lstbox, mas sim de outro motivo.

Desde já eu agradeço a ajuda.

Grande Silvio, veja algumas considerações:

Código:

Private Sub LstPrNor_Click()
       Dim d1, d2 As Date
       Dim d3


Você não declarou que d1 é do tipo Date.

Quando usamos a sequencia: Dim d1, d2 As Date
você está apenas declarado que a variável d2 é do tipo date e a d1 é uma variant, pois essa você não especificou qual seu tipo e o
VBA não entende como a última declarado, que no caso é do tipo Date...

O correto é: Dim d1 As Date, d2 As Date

Você também não declarou o tipo da variável d3.

Outra coisa é que sempre que trabalho com datas, formato elas para o padrão americano (mm/dd/yyyy),
ou seja: Format(d1, "mm/dd/yyyy").

Teste essas dicas, pode ser que de certo.

DLast("nordtvig & ' Hora: '& NORHVIG", "[QryAtzNor]", "NORMOTEXT=#"& d3 & "#")

Está trabalhando com expressão no DLast? Acho que está meio estranho, ou não entendi...
E quando se compara datas, temos que envolver-las entre "#", como fiz acima.

Boas Marcelo...

D3 é uma coluna (Column(3)) da LstPrNor onde esta o motivo no formato texto. É através desse motivo que eu preciso filtrar usando o Dlast.

As correções propostas já estou realizando.

Resolvido...ficando dessa forma:

& "Data: " & DLast("nordtvig & ' Hora: '& NORHVIG", "[QryAtzNor]", "NORMOTEXT= forms!frmcadastro!motoculta") & vbCrLf _