vb+access添加数据
以下代码：
Private Sub Form_Load()
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\工作\SQL\fetion.mdb;Persist Security Info=False"
conn.Open connStr


Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""

End Sub
Private Sub Command1_Click()

rs.Open "Profile", conn, adOpenKeyset, adLockPessimistic
rs.Fields("user_number") = Text1.Text
rs.Fields("user_name") = Text2.Text
rs.Fields("number") = Text3.Text
rs.Fields("user_tel") = Text4.Text
rs.Fields("user_phone") = Text5.Text
rs.Fields("user_address") = Text6.Text
rs.Fields("start_time") = Text7.Text
rs.Fields("end_time") = Text8.Text
rs.Fields("money") = Text9.Text
rs.Fields("contents") = Text10.Text
rs.Update
MsgBox ("录入成功")
End Sub


Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
End Sub


运行后提示：“1实时错误，3021”BOF或EOF有一个是真，或当前记录已被删除，所需操作要求一个当前的记录！
帮忙看看是怎么回事啊！
应该怎么修改呢！
谢谢了！


[解决办法]
Private Sub Command1_Click()
if rs.state<>adstateclosed then rs.close
rs.Open "select * from Profile", conn, adOpenKeyset, adLockPessimistic
rs.addrow
rs.Fields("user_number") = Text1.Text
rs.Fields("user_name") = Text2.Text
rs.Fields("number") = Text3.Text
rs.Fields("user_tel") = Text4.Text
rs.Fields("user_phone") = Text5.Text
rs.Fields("user_address") = Text6.Text
rs.Fields("start_time") = Text7.Text
rs.Fields("end_time") = Text8.Text
rs.Fields("money") = Text9.Text
rs.Fields("contents") = Text10.Text
rs.Update
MsgBox ("录入成功")
End Sub

[解决办法]