Access - problema grave con fechas

hola pues tengo un problemilla con las fechas, para un periodo, resulta que las vargo atraves de un formulario, y tengo definido la caja de texto con formato MMM-AA, ya que en mi sistema solo se toma encuanta mes y año, eldia los pogo a primero simepre. el campo donde se guarda en la tabla es tipo fecha y no tiene formato... el usuario deve escrivir la fecha de la forma MMM-AA y dar intro.. entonces el control pierde foco y:

Private Sub FD_LostFocus()
On Error GoTo ffff
If Not IsNull(FD) Then
FD = "01-" & Month(FD) & "-" & Year(FD)
If FD > FH Then MsgBox "La fecha de inicio de periodo es mayor a la de fin"
Me.FI = FH ' me.FI es el campo fecha de la tabla asociada al formulario
Else
MsgBox "Introdusca una fecha de la forma MMM-AA"
End If
Exit Sub
ffff:
MsgBox "Introdusca una fecha de la forma MMM-AA"
End Sub

el gran problema aca es que si el año es menor al año actual, al asignarlo a me.fi, me invierte el año asia dia y me pone 07 como año y el mes si lo respta.
espero puedan ayudar. gracias

amigo aqui te falta ola funcion fecha

=fecha("01-" & Month(FD) & "-" & Year(FD))

ahi tendria que andar la compracion

un saludo

ute