[CODE]Public Class Form1
    Dim con As New OleDb.OleDbConnection
    Dim da As OleDb.OleDbDataAdapter
    Dim Command As New OleDb.OleDbCommand
    Dim ds As New DataSet
    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()
        MsgBox("Database connesso")
        da.SelectCommand = New OleDb.OleDbCommand("SELECT * FROM Modelli ", con)
        da.Fill(ds, "Modelli")
        Count = ds.Tables("Modelli").Rows.Count

        While Count > -1
            row = ds.Tables("Modelli").Rows.Item(Count)
            DataGridView1.Rows.Add(row.Item(0))
            Count = Count - 1
        End While

        con.Close()

        
    End Sub
End Class
[/CODE]