我已实现通过ADO访问数据库，通过textbox,datagrid控件绑定，可以访问到数据，现在我希望能够通过textbox写入数据库，请问如何实现？
书上说用：update
Set Text1.DataSource = rs
Text1.DataField = "emp_id"

Set Text2.DataSource = rs
Text2.DataField = "fname"

Set Text3.DataSource = rs
Text3.DataField = "minit"

Set Text4.DataSource = rs
Text4.DataField = "job_id"

Set Text5.DataSource = rs
Text5.DataField = "job_lvl"

这是书上的例子，运用update后的确可以更新数据（我新建了一个text返回数据），不过我不知道是否写入了数据库，打开数据库验证也没有新记录，怎样才能真正写进数据库呢？

你确定书上是这样的吗?

我看啊
rs.recordset("字段名")=text1.text
rs.recordset.updata

谢谢!

我这样实现了:
rs.addnew
rs.field(0)="text1.text"
rs.field(1)="text2.text"
rs.update
不过,每次我添加一条记录后,数据库就添加 8 条一样的记录,而且vb还报错,请问这是为啥啊?

rs.addnew

rs.fields("字段名")=text1.text
.
.
.
.
.
.
rs.update

If Trim(Text1(0).Text) = "" Then
MsgBox "员工工号不能为空"
Text1(0).SetFocus
Exit Sub
End If
If Trim(Text1(1).Text) = "" Then
MsgBox "员工姓名不能为空"
Text1(1).SetFocus
Exit Sub
End If
With Adodc1.Recordset
.Fields(0).Value = Text1(0).Text
.Fields(1).Value = Text1(1).Text
.Fields(2).Value = Text1(2).Text
.Fields(3).Value = Text1(3).Text
.Fields(4).Value = Text1(4).Text
End With
Adodc1.Recordset.UpdateBatch adAffectAllChapters