conexion acces

Imports System.Data.OleDb 'ESTA LINEA IMPORTA LAS LIBRERIASPARA CONECTAR CON ACCESS 2007 0 2010
Public Class Form1
    Dim N As Integer = 0
    Dim CN As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=D:\SISTEMAS_INTERACTIVOS.accdb") 'ESTA LINEA IMPORTA LAS LIBRERIAS PARA LA CONEXCION DE DATOS CON ACCESS

    Sub mostrar() 'CREAR PROCEDIMIENTO PARA MOSTRAR LOS DATOS EN EL DATAGRIDVIEW
        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM Empleado", CN)
        Dim DS As New DataSet 'TABLA TEMPORAL QUE CONTENDRA NUESTA TABLA DE LA BASE DE DATOS
        DA.Fill(DS, "Empleado") 'FILTRAR LOS DATOS EN NUESTRA TABLA TEMPORAL
        DataGridView1.DataSource = DS.Tables("Empleado")
    End Sub