Question

vb2008中连接数据库问题！急！

Dim rs_save As ADODB.Recordset
Dim sql As String
sql = "select*from 入出库 where 货单号='" & Text1.Text & "'"
rs_save.Open(sql, conn,ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)

If rs_save.EOF Then

rs_save.AddNew()
rs_save.Fields(0) = Trim(Text1.Text)
rs_save.Fields(1) = CDate(Trim(Comboy.Text) & "-" & Trim(Combom.Text) & "-" & Trim(Combod.Text))
rs_save.Fields(2) = Trim(Combo1.Text)
rs_save.Fields(3) = Trim(Text2.Text)
rs_save.Fields(4) = Trim(Text3.Text)
rs_save.Fields(5) = Trim(Text4.Text)
If Me.Text = "入库" Then
rs_save.Fields(6) = True
Else
rs_save.Fields(6) = False
End If
Else ........

怎么编译时有rs_save.fields（） 的那几行总显示 item属性为readonly啊，
看了半天MSDN没看懂

高手解决下，急！万分感谢！

Answer 1

Dim rs_save As ADODB.Recordset
改成 Dim rs_save As New ADODB.Recordset

Answer 2

重启