access日期和小时的加减

在access中利用NOW（）得到的系统时间，如何实现自动减去小时数，得到一个新的日期时间。

比如系统时间是2013/4/11 02:10:40，自动减去4小时，得到新的时间是2013/4/10 22:10:40.

目前事件过程代码是：

Private Sub Line_AfterUpdate()
Me.Line_Date.Value = Now()
Dim a As String
If IsNull(Me.Text12) Then a = 0 Else a = Me.Text12
If (a + Me.Line_Out) = DLookup("[Order Qty]", "Order Schedule", "[Order]='" & Me.Order & "'") Then Me.AllowAdditions = False
End Sub

DATEADD("h",-1,NOW())