vb6+mysql问题

[游子]

以下是代码：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
' 定义数据库连接字符串变量
Dim strCn As String
db_host = "192.168.20.101"
db_user = "60090"
db_pass = "8db4b"
db_data = "s69db0"
strCn = "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
cn.Open strCn
cn.CursorLocation = adUseClient
sql = "select order_id,order_state from ms_order where order_id='" & Trim(txtddh.Text) & "'"
rs.Open sql, cn, 1, 3
With rs
.Fields("order_state") = "seok"
.Update
End With
cn.Close
提示错误为：
实时错误‘-2147467259（80004005）’
数据提供程序或其他服务返回 E_FAIL状态
非常感谢