[Resolvido]Onde esta o erro?? Fiz um botão D que ao clicar coloca DESMARCOU

Quando clico no D da um erro de execução que diz haver um erro na linha:
DataUltimaConsulta = Date e ai vai para o depurador!! Nao sou programador e fiz este prg para controlar no meu cadastro que FALTOU (F), DESMARCOU (D) E COMPARECEU (C), e estava tudo funcionando!!! Mas derrepente...Onde devo buscar o erro? Necessitam de mais dados? Obrigado pela ajuda!!!



Private Sub BotD_Click()
Dim db As Database
Dim rs As Recordset

DataUltimaConsulta = Date
UltimaConsulta = "Desmarcou"

Set db = DBEngine(0)(0)
Set rs = db.OpenRecordset("RetornoMemoTab", dbOpenTable)
rs.AddNew
rs("DataUltimaConsulta") = Me!DataUltimaConsulta
rs("UltimaConsulta") = Me!UltimaConsulta
rs("Prontuário") = Me!Prontuário
rs.Update
rs.Close
Set rs = Nothing

 Dim stDocName As String
 Dim stLinkCriteria As String

 stDocName = "RetornoMemoTabFrm"
   
 stLinkCriteria = "[Prontuário]=" & Me![Prontuário]
 DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Olá!

se DataUltimaConsulta e Ultimaconsulta forem campos do formulário, acrescente o me!  

Me!DataUltimaConsulta = Date
Me!UltimaConsulta = "Desmarcou"

Se forem variáveis, altere o projeto para

Private Sub BotD_Click()
Dim db As Database
Dim rs As Recordset

Set db = DBEngine(0)(0)
Set rs = db.OpenRecordset("RetornoMemoTab", dbOpenTable)
rs.AddNew
rs("DataUltimaConsulta") = date
rs("UltimaConsulta") = "Desmarcou"
rs("Prontuário") = Prontuário
rs.Update
rs.Close
Set rs = Nothing

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "RetornoMemoTabFrm"
  
stLinkCriteria = "[Prontuário]=" & Me![Prontuário]
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

Sucesso!

Deu CERTO!!!!
Obrigado pela ajuda!!!