' QUERY-Abfrage und Aktion definieren
SQL = "UPDATE Kunden SET EMail_Info = True WHERE " & _
  "(EMail_Info = False) AND " & _
  "NOT (EMail Is Null) AND (EMail <> "")"
 
Set QUERY = Db.CreateQueryDef("", SQL)
QUERY.Execute
QUERY.Close
Set QUERY = Nothing