Se il chkbox non è legato ad un databound, puoi scrivere questo codice nel private sub chkbox_click:
Dim Selezione As String
Dim db1 As Database
Dim rs1 As Recordset
Selezione = "SELECT * FROM nomeTabella WHERE ID = '" + campoChiave + "'"
Set db1 = DBEngine.Workspaces(0).OpenDatabase(pathDatabase + nomeDatabase)
Set rs1 = db1.OpenRecordset(Selezione, dbOpenDynaset)
if rs1.eof then
rs1.addnew
else
rs1.MoveFirst
rs1.edit
end if
if chkbox.value = 0 then
rs1("nomeCampo") = "No"
else
rs1("nomeCampo") = "Si"
end if
rs1.update
rs1.Close
db1.Close
In questo modo, ogni volta che viene spuntato o despuntato il chkbox, si aggiornerà il database.
Logicamente occorre che il record da aggiornare sia legato al campoChiave dello stesso.
Buon lavoro.
Aeghé vi saluta!