Try this.
rst.Open "update cases SET cases.flag = 0 WHERE " & threshold < DateDiff("h", rst!datein, Now), CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Note the extra space after the Where clause
No Two Nulls are the same
Matt