Imports System.Data.OleDb
Public Class Form1

    Dim con As New OleDb.OleDbConnection

    Dim Command As New OleDb.OleDbCommand

    Dim row As System.Data.DataRow
    Dim Count As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;"
        Dim dbsource As String = "Data Source=C:\Users\Crash\Documents\Database2.accdb"
        con.ConnectionString = dbprovider & dbsource
        con.Open()

        datagridshow()


    End Sub
    Private Sub datagridshow()
        Dim ds As New DataSet
        Dim dt As New DataTable
        ds.Tables.Add(dt)
        Dim da As OleDb.OleDbDataAdapter
        da = New OleDbDataAdapter("select * from Marche", con)
        da.Fill(dt)
        DataGridView1.DataSource = dt.DefaultView
        con.Close()

    End Sub
End Class