Access - urge

hola a todos, tengo el sgte. problema. Tengo un formulario principal opcion Contado, al hacer un click quiero que salga automaticamente en el campo fecha_vencimiento la fecha actual del sistema. Hice un procedimiento
Function FECHA()
Dim Mifecha
Mifecha = Date
End Function
y lo estoy llamando del cuadro combinado cuando la opcion sea Contado, llama a la funcion

Pero me sale otra fecha que no coincide con mi pc, esta bien puesta la fecha en mi pc,

Me pueden Ayudar.Gracias

Tengo la impresión de que lo que no te funciona es el cuadro Combinado, que no da bien el resultado elejido ¿Tiene varias columnas? Comprueba que el valor que le asigna al control es el de la columna que tu quieres, provoca un msg que te lo confirme. Te mando una rutina de ejemplo que puedes colocar en <Despues de actualizar >

Con Valores para Cuadro_combinado0 = CONTADO,30,60,90, etc

Private Sub Cuadro_combinado0_AfterUpdate()
Dim x As Integer

If Me![Cuadro combinado0] = "CONTADO" Then

Me![Vencimiento] = Date
Else
x = Val(Me![Cuadro combinado0])
Me![Vencimiento] = DateSerial(Year(Date), Month(Date), Day(Date) + x)
End If

End Sub

Saludos. Joaquín