Dim cn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim sSQL As String

Dim sOut As String

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

cn.ConnectionString = "DSN=test;UID=;PWD=;"

cn.Open

sSQL = "SELECT 班组记录.成品数量 FROM 班组记录 WHERE 班次编号='0000000' and 产品编号='000000'"

Set rs = cn.Execute(sSQL)

sOut=rs.Fields("成品数量")

MsgBox sOut

'做到这里都没有什么问题的。

rs.Fields("成品数量") = Text_cpsl

rs.Update

'就是这个不对，不知道为什么。似乎Recordset中的记录是只读的，我试着删除这条记录也不行

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

'如果Recordset真的是只读的，我该怎么改？我想按我的要求找到记录然后改变其中的一个数值。

记录集的打开方式不对，改：

rs.open ssql,cn,1,4

[此贴子已经被作者于2004-06-17 08:55:17编辑过]

那个1，4是什么意思？

Set rs = cn.Execute(sSQL)

这样打开记录集是只读的，你应该设置锁定方法和游标。

这样打开就可以了 rs.open sSQL,cn,1,3