db.Execute ?

Jeg har flg kode:

Option Compare Database
Option Explicit
Dim db As DAO.Database

Private Sub Form_Load()
    Dim snp As DAO.Recordset
    Dim msg As String
   
    Set db = CurrentDb
End Sub

Private Sub UpdateActivity()
    db.Execute "UPDATE T_LastUsed SET LastUsed = #" & Now() & "#"
End Sub

Private Sub AfdIDnr_GotFocus()
    Call UpdateActivity
End Sub

Når jeg kører den får jeg flg fejlmeddelse:
"Object variable or with block variable not set"
Hvorfor?
Tabel angivelse og felt angivelse er korrekt!

Mogens