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真的是只读的，我该怎么改？我想按我的要求找到记录然后改变其中的一个数值。