Not sure if you eventually solved your issue, but thought I'd post anyway....may help someone else :). I believe the following will solve your issue
Dim l_sql as string
Dim Rslt_Count As Long
dim db as database
Set db = CurrentDb
'Build Update SQL
l_sql= "UPDATE Addrs SET Record=True WHERE...