[Resolvido]DLast retorna valor falso

Prezados colegas, bom dia e bom feriado a todos.

Tenho o seguinte código que estou a desenvolver :

Private Sub LstPrNor_Click()
Dim d1, d2 As Date
d1 = CDate(Date)
d2 = CDate(LstPrNor.Column(5))

' Caso escolha uma data passada....
If (d1 > d2) Then
If MsgBox("Você escolheu um preço PASSADO !" _
& "A mais recente é:" _
= DLast("[nordtvig]", "[tblatznor]", "[nordtvig)]" < Date) _
& 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
End If

O que ocorre, é que ao executar essa consulta, o Dlast me retorna uma msg " falso " e não a última data.
Eu preciso apenas que na msgbox, me retorne a última data que está na tabela.

Grato desde já.

Grande Silvio bom dia..

Ja tentou assim?

= DLast("[nordtvig]", "[tblatznor]", "[nordtvig)] < Date") _

& DLast("[nordtvig]", "[tblatznor]", "[nordtvig)]" < Date) _

Boa tarde,
Private Sub LstPrNor_Click()
Dim d1, d2 As Date
d1 = CDate(Date)
d2 = CDate(LstPrNor.Column(5))

' Caso escolha uma data passada....
If d1 > d2 Then
If MsgBox("Você escolheu um preço PASSADO !" _
& "A mais recente é:" _
& DLast("[nordtvig]", "[tblatznor]") _
& 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
End If
...

Boa noite aos colegas.

Desculpe a demora em responder, mas hoje foi dia de mudanças por aqui, casa nova !

Show de bola mesmo, valeu a todos que me ajudaram.

Alexandre, dei uma incrementada no DLast, pois dessa forma pude pegar a hora também, evitando erros do utilizador, portanto ficou assim:

' Caso escolha uma data passada....
Dim d1, d2 As Date
d1 = CDate(Date)
d2 = CDate(LstPrNor.Column(5))

' Caso escolha uma data passada....
If d1 > d2 Then
If MsgBox("Você escolheu um preço ULTRAPASSADO !" & vbCrLf _
& "O mais recente é :" & vbCrLf _
& "Data: " & DLast("[nordtvig]", "[tblatznor]") & " Hora : " & DLast("[NORHVIG]", "[tblatznor]") _
& 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
End If

Deixo aqui, meus agradecimentos ao Claudio, Alexandre e ao Fernando pela força.