关于VB MSHFlexGrid 保存数据的问题

[gao20060214]

我用ADO把数据从Access数据库 读取到Mshflexgrid表中，在Mshflexgrid中修改数据后，保存回Access数据库时出现报错：


代码如下：
Private Sub Command3_Click()
Dim i As Integer
Dim j As Integer
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "/数据库.mdb"
rs.Open "Select * from 表1", cnn, 1, 3

With MSHFlexGrid1
cnn.Execute "update 表1 set 序号 = " & .TextMatrix(.Row, 2) & ",车型 = " & .TextMatrix(.Row, 4) & " where id = " & .TextMatrix(.Row, 1) & ""
End With

End Sub

求各位老师帮忙指点下问题出在哪里了~
（好像只能保存数字类型的。。。）

[Tiger_Zhao]

SQL 的字符串值两边要加单引号。

    Dim sql As String
    sql = "update 表1 set " & _
          "序号 = " & .TextMatrix(.Row, 2) & ", " & _
          "车型 = '" & .TextMatrix(.Row, 4) & "' " & _
          "where id = " & .TextMatrix(.Row, 1)
    Debug.Print sql '可以用这个输出到查询分析器中找错'
    cnn.Execute sql

[gao20060214]

谢谢，搞定了~