[Resolvido]data especifica no form

Olá
Preciso de uma dica

tenho dois campos no meu form e preciso de um procedimento quando o form abrir um dos campos me mostre a data do ultimo dia 21 do ano vigente.

por exemplo hoje é 26/09/2011
então o valor de um dos campos deveria ser 21/08/2011

tentei com o dateserial, mas ele retorna 21/12/1999...
alguém poderia ajudar?

Parte do código

Código:



Private Sub Form_Open(Cancel As Integer)
Dim datador As String

datador = DateSerial(yyyy , mm, 21)
Me.txt_data0.Value = datador


End Sub


Teste por favor;

Dim datador As String
datador = DateSerial(Year(Date), Month(Date) - 1, 21)
Me.txt_data0.Value = datador

Aproveite e dê uma basculhada nas salas de repositório que tem muita coisa sobre datas.

100% resolveu minha dúvida
Obrigado pela dica!

Só faltou o Resolvido, eu coloco desta vez