Public cn As New ADODB.Connection
Public rs As New ADODB.RecordsetPrivate Sub Command1_Click()
cn.BeginTrans
rs(1) = Text1.Text
rs.Update
cn.CommitTrans
End SubPrivate Sub Form_Load()
cn.Open "provider=sqloledb;server=blue;database=myvb;uid=sa"
rs.Open "a", cnn, adOpenKeyset, adLockOptimisticEnd Sub当我在text1.text中输入数据并第一次按command1是没有错误发生
可是当我在不移动记录的情况下再按command1就出现了上面的错误
这是为什么?请帮助