Imports System.Data
Imports System.Data.OleDb
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fileDB As String
        Dim OFD As New OpenFileDialog



        OFD.Filter = "File Access .mdb | *.mdb"
        OFD.FilterIndex = 1
        OFD.Title = "Seleziona il DB Access da utilizzare :"
        If OFD.ShowDialog = DialogResult.OK Then
            fileDB = OFD.FileName
            
            MsgBox(fileDB)
        End If
        OFD.Dispose()


    

        

        Dim objConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0")
        Dim objDataAdapter As New OleDbDataAdapter("SELECT * from Clienti", objConnection)
        Dim objDataSet As DataSet
        Dim objDataView As DataView
        Dim objCurrencyManager As CurrencyManager
        objDataSet = New DataSet()


        objDataAdapter.Fill(objDataSet, "Clienti")


        objDataView = New DataView(objDataSet.Tables("Clienti"))


        objCurrencyManager = CType(Me.BindingContext(objDataView), CurrencyManager)
        DgViewAllCustomers.DataSource = objDataView

    End Sub
End Class