把excel表中单元格的数据送sql数据库，报错？？（附代码）

Question

执行下列代码报错：3251 当前记录集不支持更新，这可能是提供程序的限制，也可能是选定锁定类型的限制。
Dim con1 As DAO.Recordset
Dim db As Database
Dim Con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As StringPrivate Sub CommandButton1_Click()
Con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xiaoqu;Data Source=gentleman"
Con.Openstr = "select * from 表费用 order by 住户编号"
Set rs = New ADODB.Recordset
rs.Open str, Con, adOpenStatic, adLockOptimistic    rs.Fields(6) = Sheet1.Range("B4").Value
    rs.Update
End Sub

Answer 1

需要设游标类型为客户端游标：Con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xiaoqu;Data Source=gentleman"
Con.CursorLocation=adUseClient'设置客户端游标
Con.Open

Answer 2

如果是Access数据库，那就不用