我有几个数据想要写和SQL SERVER的一个表“HousingResources”里“房号”列中与text8相对应的一行里面
sql = "select * from HousingResources where 房号 ='" & Trim(Text8.Text) & "'"
Call OpenConn
rs.Open sql, cn, 1, 3
If rs.RecordCount = 0 Then '判断数据库里无此数据
Text8 = ""
MsgBox ("房号不正确"): Exit Sub
Else
If rs.Fields("房源状态") <> "" Then
MsgBox ("该房源已售，请重新选择"): Exit Sub
Else
rs.AddNew
rs.Fields(9).Value = "已售"
rs.Fields(16).Value = Trim(Text2.Text)
rs.Fields(17).Value = Trim(Text1.Text)
rs.Fields(19).Value = Trim(Text6.Text)
rs.Fields(20).Value = Trim(Text7.Text)
rs.Fields(21).Value = Trim(Text3.Text)
rs.Fields(22).Value = Trim(Text5.Text)
rs.Fields(23).Value = Trim(Text12.Text)
rs.Update
怎么也写不进去，提示我实时错误，多步操作产生错误，请检查每一上的状态值？
请老师们帮我看一下中里错了啊