Private Sub Carrello_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tabella As New DataTable
        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DbOggetti.mdb"
        Dim strQuery As String = "SELECT * FROM Carrello"
        Dim adattatore As New OleDb.OleDbDataAdapter(strQuery, strConn)
        adattatore.Fill(tabella)
        Me.CarrelloDataGridView.DataSource = tabella
        CarrelloDataGridView.Columns(0).ReadOnly = True
    End Sub
 
 Private Sub SalvaGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaGrid.Click

    End Sub