Mi dice che c'è un errore nella stringa...
Ti dice che c'è un errore perché tenti di inserire una stringa in un campo Boolean, fai così:
codice:
dim valCheck as boolean
if miaCheck.value=1 then
      valCheck=True
else
      valCheck=False
end if

sql="UPDATE miaTab SET campoSiNo=" & valCheck &" WHERE id=1"