vb.net中如何把DataGridView当前行的值跟新到ACCESS数据库

vb.net中如何把DataGridView当前行的值跟新到ACCESS数据库

参考一下下面这段代码：
Imports System.Data.OleDb
Public Class Form1
Dim SqlCOM As OleDbConnection
Dim SqlUse As OleDbDataAdapter
Dim Dt As DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
'连接数据库
SqlCOM = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\LP\Documents\Database1.accdb")

'执行数据命令获取表
SqlUse = New OleDbDataAdapter("SELECt * FROM 表1", SqlCOM)

Dt = New DataSet
SqlUse.Fill(Dt) '放入dataset中
Catch
MsgBox(Err.Description, 48)
End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
DataGridView1.DataSource = Dt.Tables(0).DefaultView 'DVG与DADASET同步数据显示
Catch
MsgBox(Err.Description, 32)
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim ass As New OleDbCommandBuilder(SqlUse) '关联DataSet和数据库的操作(更新)
SqlUse.UpdateCommand = ass.GetUpdateCommand() '执行更新所需的 OleDbCommand 对象
SqlUse.Update(Dt.Tables(0)) '执行OleDbDataAdapter的Update更新数据库
Catch
MsgBox(Err.Description, 32)
Finally
MsgBox("更新成功", 64)
End Try
End Sub
End Class

你自己添加和数据库对应的列 修改图中箭头属性