Guardar datos en Access desde un Datagrid en vb.net

[jankatch]

Imports System.Data.OleDb
Imports System.Data


Public Class Form1
Dim StrConexion As String
Dim StrComando As String
Dim adapter As New OleDbDataAdapter
Dim Cb As OleDbCommandBuilder
Dim copia As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
StrConexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Video\Video.mdb;Persist Security Info=False"
StrComando = "SELECT * FROM cliente"
adapter = New OleDbDataAdapter(StrComando, StrConexion)
Cb = New OleDbCommandBuilder(adapter)
adapter.Fill(copia, "cliente")
Me.DataGridView1.DataSource = copia.Tables("cliente")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
adapter.Update(copia, "cliente") 'ACTUALIZA LA BASE DE DATOS
copia.Tables("cliente").AcceptChanges() 'HACE EL CAMBIO Y CIERRA EL ESTADO
If copia.HasChanges(DataRowState.Added) = True Then
MsgBox("el cambio fue realizado")
End If
End Sub