dim db as database
dim rs as dao.recordset
 
set db = currentdb
set rs =rs.openrecorset("select * from table", dbopendynaset)
 
public sub speichern:_click()
   if me.checkbox.value <> ""  then rs!checkbox = false else rs!checkbox = true
end sub