比较奇怪的问题，以更改但不显示

[fzhfeng]

Dim rsPrice As ADODB.Recordset
Set rsPrice = New ADODB.Recordset
Dim strSQL As String
strSQL = "select * from houses where house_ID =" & Val(frmHousesPool.lvwHouses.SelectedItem.Key)

rsPrice.Open strSQL, CN, adOpenDynamic, adLockPessimistic
Dim n
Dim m
n = rsPrice.Fields("house_address")
m = rsPrice.Fields("saling_price")
rsPrice.Fields("saling_price") = 333
rsPrice.Update
Debug.Print rsPrice("saling_price").Value
rsPrice.Close
Set rsPrice = Nothing

/////
Debug.Print 也是333
但是打开数据库确实没有变动的，还是原样

[ozarkgirl]

推推推

[饮水需思源]

rsPrice.Update后再加一句rdprice.refresh试试，
另外，修改数据库建议使用update tablename set field=... where ...
格式　

[goodnow]

你的CN呢？
开始是如何打开的？
最后应该也关闭一下

[laihua]

是不是adOpenDynamic, adLockPessimistic这个要改一下