最简单我觉得是这样
做查询后
If mytable.Rows.Count <> 0 Then '判断是否有查询到的记录,mytable为datatable对象
myrow.Item(1) = TextBox1.Text
myrow.item(2) = textbox2.text '通过文本框修改该记录的字段值,myrow为datarow对象
.
.
.
Dim amd As New OleDbCommandBuilder(myadapter) '自动生成sql语句
myadapter.Update(ds, "users")
End If