最简单我觉得是这样 做查询后 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