System hangs when assigning date

[aadebayo]

Hi I am currently having a problem, whereby the system hangs for about 3 - 10 seconds when it steps to a date assigning code. The code is below, with the affected one in bold

    If IsNull(Me.HistoryDate) And IsNull(Me.HistoryTime) Then
        [B]Me.HistoryDate.Value = Date[/B]
        Me.HistoryTime.Value = Time
    End If