你的记录锁定方式有可能是只读型的。
rs.CursorLocation=adUseClient
rs.CursorType = adOpenKeyset
rs.LockType =adLockOptimistic'设置rs记录集对象的锁定类型为开放式记录锁定。
rs.CursorLocation=adUseClient
rs.CursorType = adOpenKeyset
rs.LockType =adLockOptimistic'设置rs记录集对象的锁定类型为开放式记录锁定。
调试欢乐多
改成
mrc.Open "select * from lyzpfycfqb where dwbh='" & Trim(dwbh) & "'", cnn, 3, 3