登录到SQL后却无法输出数据？咋回事呀

登录到SQL后却无法输出数据？怎么回事呀！
我想用这种方式解决速度的问题。
我想不通过DSN直接访问SQL，连接字符串如下：
Public   CNN
Public   RST
Sub   mydovro()
Set   CNN   =   CreateObject( "ADODB.Connection ")
Set   RST   =   CreateObject( "ADODB.Recordset ")
CNN.Open   "DRIVER=SQL   Server;SERVER=WWW-45DDBAA9B9D;UID=sa;PWD=;DATABASE=sales "
End   Sub

在访问的时候可以登录到SQL上，可是用到下面的查询想去访问，问题就出现了。

Private   Sub   CommandButton7_Click()
  Call   mydovro
    SQL   =   "Update   cpda   set   cpbh= ' "   &   TextBox9   &   " ',cpmc= ' "   &   TextBox4   &   " ', "   &   _
                  "cpgg= ' "   &   TextBox3   &   " ',cpjldw= ' "   &   TextBox6.Text   &   " ', "   &   _
                  "cptax= ' "   &   TextBox7.Text   &   " ',cprb= ' "   &   ComboBox1.Text   &   " ', "   &   _
                  "fsck= "   &   CheckBox1.Value   &   ",zk= "   &   CheckBox2.Value   &   ", "   &   _
                  "cpfzjldw= ' "   &   TextBox15.Text   &   " ',cphsl= ' "   &   TextBox13.Text   &   " ' "   &   _
                  "   where   cpbh= ' "   &   TextBox9   &   " ' "
        CNN.Execute   SQL <------错误提示在这儿
      MsgBox   "数据修改成功！ ",   vbOKOnly,   "DOVRO "
  RST.Close:   CNN.Close
End   Sub

错误提示：
运行时错误, '-2147217900 '(80040e14)  
[Miscrsoft][ODBC   SQL   Server   Driver][SQL   Server]列名 'False '无效，大家知道为什么吗？

[解决办法]
检查列名！
[解决办法]
"fsck= " & CheckBox1.Value & ",zk= " & CheckBox2.Value & ", " & _
应该是这里 CheckBox1.value=true 或者 false
你最好在这里
CNN.Execute SQL <------错误提示在这儿
打断点调试
把sql变量放到查询分析器执行
[解决办法]
先加一个Debug.Print将SQL语句弄出来看看
[解决办法]
fsck= " & iif( CheckBox1.Value,1,0) & "

*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

最新版本：20070212

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html