[Resolvido]Erro primario sintaxe - Update

Sou novato e sei que provavelmente estou batendo cabeça por falta de uma , ou "" mas alguém pode me ajudar ai... ?

Está dando erro de sintaxe

Tabela: Cad_Agendamentos
Campo que será atualizado: Status
Critério: menor que a data atual em relação ao campo Ag_para

DoCmd.RunSQL "Update Cad_Agendamentos" & _
"Set [Cad_Agendamentos].[Status] = 'Pendente'" & _
"where [Cad_Agendamentos].[Ag_para] < #" & Date & "#"

Desde já agradeço.

DoCmd.RunSQL "Update Cad_Agendamentos Set Status='Pendente' where Ag_para< #" & Date & "#"
Confira a formatação da data

Deu certo muito obrigado.

Desculpe minha falta de conhecimento.