Private Sub SalvaGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaGrid.Click
        Dim t As DataTable = CType(CarrelloDataGridView.DataSource, DataTable)
        Dim carrellotmp As DataTable
        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DbOggetti.mdb"
        For Each y As DataRow In t.Rows
            Dim s As String = "SELECT * FROM Carrello WHERE ID = " + y("ID")
            'Dim strQuery As String = "SELECT * FROM Carrello"
            Dim adattatore As New OleDb.OleDbDataAdapter(s, strConn)
            adattatore.Fill(carrellotmp)
            If carrellotmp.Rows.Count > 0 Then


            End If
        Next
    End Sub