修改数据库内容的问题
Private Sub Command1_Click()
Set rs = db.OpenRecordset("select * from useinfor where id=1")
rs("name") = Me.Text1
rs("position") = Me.Text2
rs("sex") = Me.Text5
rs("city") = Me.Text10
rs("postcode") = Me.Text11
rs("company") = Me.Text3
rs("com_address") = Me.Text4
rs("mobile") = Me.Text6
rs("email") = Me.Text7
rs("url") = Me.Text8
rs("content") = Me.Text12
rs("country") = Me.Text9
rs.Update
End Sub
我修改id=1这条数据 ,
程序说错在:
实时错误3020
在不使用addnew或edit的情况下,更新(update)或取消更新(cacel update)
请问应该怎么改?
谢谢!