Importar de Access a Datagrid y Exportar de Datagrid a Access

[aleex]

Necesitaria importar y exportar un Datagrid a Access por ahora tengo la parte de importar, haber si consigo la parte de exportar de un Datagrid a Access.

Aquí esta la importación:

Código vb:

Public Class Principal
 
    Dim conexion As OleDb.OleDbConnection 'Crear una instancia de conexión
    Dim tabla As DataTable  'Representa una tabla de datos'
    Dim adaptador As OleDb.OleDbDataAdapter 'Hace los datos legibles para crear instancias de un origen de datos
    Dim constructor As OleDb.OleDbCommandBuilder 'Sirve para construir comandos y consultas SQL'
    Dim reader As OleDb.OleDbDataReader
 
 
    Public Sub New()
        InitializeComponent()
        Dim cadena_conexion As String
        cadena_conexion = String.Format("Provider=Microsoft.jet.OLEDB.4.0; Data Source=" + My.Settings.Archivo)
        Try
            conexion = New OleDb.OleDbConnection(cadena_conexion)
            conexion.Open()
        Catch ex As OleDb.OleDbException
            MessageBox.Show("No se ha podido conectar al servidor " + ex.Message)
        End Try
    End Sub
    Public Sub Cargar()
        tabla = New DataTable  'Crea una nueva instancia de tabla
        adaptador = New OleDb.OleDbDataAdapter("SELECT * FROM Alumnes", conexion) 'Crea una consulta
        constructor = New OleDb.OleDbCommandBuilder(adaptador) 'Se interpreta la consulta
        adaptador.Fill(tabla) 'Se guarda los registros obtenido en la variable tabla
        DataGridView1.DataSource = tabla 'Se dibujan los datos en el DataGridView
 
    Private Sub Principal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cargar()
    End Sub
 

Para guardar encontré esto:

Código vb:

Sub Guardar()
        Dim cambios As DataTable = tabla.GetChanges 'Le asignamos los cambios de la tabla a una variable
        If cambios Is Nothing Then 'Si esta vacío
            MessageBox.Show("No hay cambios")
        Else
            adaptador.Update(cambios) 'Actualiza la operación
            tabla.AcceptChanges() 'Acepta los cambios en la tabla
        End If
 
 
 
    End Sub
 

Pero no me funciona siempre me sale el MessageBox que dice que No hay cambios, siempre que le doy a guardar habiendo hecho cambios.