错在哪里？？

Question

dim cn as new adodb.connection
cn.open "..."
rst7.open "select yesno from book where bookid='" & bookid & "'",cn
rst7("yesno") = false
rst7.Update  '写入到表里

Answer 1

但是第一个句子的确能正确运行,第二个句子的问题应该是出在字段上,为*可以,但为yesno为什么就不可以,yesno 为BOOLENA型..

Answer 2

如何能打开数据表的情况,是错在 rst7("yesno") = False应为:
 rst7("yesno") = 0'(非零即真,Server 2000 中不能使用true,false)

Answer 3

Cn.Open "...",1,3
              ~~~Rs.Open "select ...."Rs("yesno")=False
Rs.update
....