关于VB添加信息的一些问题

Question

Private Sub Command1_Click()
On Error Resume Next
With Adodc1.Recordset
rs.MoveLast
rs.AddNew
读者.Fields("学号") = InputBox("请输入学号：", "录入")
Text1.Text = Adodc1.Recordset.Fields("学号")
.Fields("姓名") = InputBox("请输入姓名：", "录入")
Text2.Text = Adodc1.Recordset.Fields("姓名")
.Fields("性别") = InputBox("请输入性别：", "录入")
Text3.Text = Adodc1.Recordset.Fields("性别")
.Fields("学院") = InputBox("请输入学院:", "录入")
Text4.Text = Adodc1.Recordset.Fields("学院")
.Fields("班级编号") = InputBox("请输入借书证号:", "录入")
Text5.Text = Adodc1.Recordset.Fields("借书证号")
.Fields("政治面貌") = InputBox("请输入联系方式:", "录入")
Text6.Text = Adodc1.Recordset.Fields("联系方式")
.Fields("出生日期") = InputBox("请输入借书数目:", "录入")
Text7.Text = Adodc1.Recordset.Fields("借书数目")
rs.MoveLast
rs.Update
Adodc1.Refresh
End WithEnd Sub程序可以运行，但是老是无法添加信息，请指教

Answer 1

rs.Update(...)这样作或者直接db.execute(insert ...)