[Resolvido]Duvida com movelast

Amigos, eu tenho este código:

Dim DataAnterior As Date
Dim Db As Database, Rs As Recordset, Sql As String
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT DataRealizada FROM TblPassosStatus WHERE CodProduto =" & CodProduto)

DataAnterior = Rs.Fields(0)

Usando Rs.Fields(0) eu consigo o primeiro valor da coluna.
Como uso movelast para obter o último valor da coluna, mesmo que
este valor seja nulo?

Obrigado.

Provavelmente o Rs.MoveLast antes do DataAnterior


Rs.MoveLast
DataAnterior = Rs.Fields(0)

Mestre JPaulo. Obrigado por responder e por ajudar.
Funcionou do jeito que você me passou, apenas para uso particular, as vezes o valor do último registro da coluna não tem valor.
Eu recebo a seguinte mensagem de erro:

Erro em tempo de execução'94':

Uso de 'Null' inválido.

Eu uso o valor para fazer um cálculo, quando este valor estiver vazio eu preciso pegar o valor de outro campo para fazer o cálculo.

Como faço para não apresentar a mensagem de erro? e se o registro do campo estiver vazio, a variável (obviamente) ficar vazia?
Obrigado novamente.

Veja se o atende;

Dim DataAnterior As Date
Dim Db As Database, Rs As Recordset, Sql As String
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT DataRealizada FROM TblPassosStatus WHERE CodProduto =" & CodProduto)

    Rs.MoveLast
        If IsNull(Rs.Fields(0)) Then
            DataAnterior = ""
        Else
            DataAnterior = Rs.Fields(0)
    End If
Rs.Close

E ae, funfou ?

Caro JPaulo, Desculpe por demorar a responder. Não consigo acessar algumas páginas da web em meu trabalho, e a do forum é uma delas. Enfim, infelizmente não funfou. Eu coloquei exatamente como você postou, mas continua mostrando a mesma mensagem de erro. Eu tentei alterar tudo para Variant, mas a função não funcionou. Eu vou tentar o seguinte declaro duas variaveis uma date e outra variant. Se variant not isnull então Date igual variant, senão exit sub. Como variant somente vai ter armazenado Date ou null, talvez funcione. Eu esqueci o meu pen drive no trabalho, somente vou poder ver amanhã. O que você acha da minha idéia?

Obrigado por ajudar.

Realmente não tinha testado;

Assim funfa de certeza;

Dim DataAnterior As Date
Dim Db As Database, Rs As Recordset, Sql As String
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT DataRealizada FROM TblPassosStatus WHERE CodProduto =" & CodProduto)

    Rs.MoveLast
        If IsNull(Rs.Fields(0)) Then
            IsNull(DataAnterior) ' ou DataAnterior=Date()
        Else
            DataAnterior = Rs.Fields(0)
    End If
Rs.Close

Mestre JPaulo, agora funfou beleza. Apenas para funfar de vez, fechar a conta e passar a régua.

Estou precisando adicionar mais uma condição (CodPassosStatus) na clausula WHERE deste código:

Dim Db As Database, Rs As Recordset, Sql As String
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT CodPassosStatus, DataRealizada FROM TblPassosStatus WHERE CodProduto =" & CodProduto)

Eu tentei o seguinte, mas não funcionou (erro de sintaxe):

Dim db As Database, RS As Recordset, Sql As String
Set Db = CurrentDb
Set Rs = Db.OpenRecordset ("SELECT CodPassosStatus, DataRealizada FROM WHERE TblPassosStatus CodProduto =" & CodProduto AND CodPassosStatus = "& CodPassosStatus)

Acho que é simples, mas não estou conseguindo identificar o erro.

Obrigado.

Mestre JPaulo, consegui resolver. Muito obrigado pela ajuda.