[Resolvido]data e hora

Boa noite,
tenho uma situação que não consigo resolver e tentei pesquisar no forum e não encontro.
Num formulário há três campos:
um botão opção, uma caixa de texto - data e uma caixa de texto - hora

No botão opção em "Ao fazer clik" inseri o seguinte código
If IsNull(Me.data_fim.Value) Then
Me.data_fim.Value = Now
If IsNull(Me.hora_fim.Value) Then
Me.hora_fim.Value = Now
End If
End If

Na caixa texto data aparece (04-04-2013) mas ao clicar na data aparece (04-04-2013 23:02:00)
Queria que fosse sempre (04-04-2013)

Na caixa texto hora aparece (22:00)mas ao clicar na data aparece (04-04-2013 23:02:00)
Queria que fosse sempre (22:00)

Já criei mascara e continua igual (mascara hora 00:00;0;_) (mascara data 00-00-0000;0;_)

Alguém pode ajudar?

Tente assim:

If IsNull(Me.data_fim.Value) Then
Me!data_fim.Value = Date
If IsNull(Me.hora_fim.Value) Then
Me!hora_fim.Value = Format(Now,"hh:mm")
End If
End If

Boa tarde,
Era mesmo isto que pretendia.

Obrigado e deculpe por só agora responder.
parabens ao forum

Obrigado pelo retorno.

Como eu insiro um um códito deste tipo em um botão em uma página html criada pelo access 2003?