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 strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DbOggetti.mdb"
        Dim ConnEl As New OleDb.OleDbConnection(strConn)
        For Each y As DataRow In t.Rows
            Dim s As String = "SELECT * FROM Carrello WHERE ID = " + Trim(Str(y("ID")))  <------- L'errore è qua
            Dim adattatore As New OleDb.OleDbDataAdapter(s, strConn)
            Dim ds As New DataSet
            adattatore.Fill(ds, "Temp")
            Dim t2 As DataTable = ds.Tables("Temp")
            If t2.Rows.Count > 0 Then
                Using Connl As New OleDb.OleDbConnection(strConn)
                    Connl.Open()
                    s = "UPDATE Carrello SET Quantita='" + y("Quantita") + "' WHERE ID = " + Trim(Str(y("ID")))
                    Dim cmdModArt As New OleDb.OleDbCommand(s, Connl)
                    cmdModArt.ExecuteNonQuery()
                    Connl.Close()
                End Using
            End If
        Next
    End Sub

    Private Sub ButtElim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtElim.Click
        Dim c, x As Integer
        c = 0
        x = 0
        For c = 0 To CarrelloDataGridView.RowCount - 1
            If CarrelloDataGridView.Rows(x).Cells(2).Value = True Then
                CarrelloDataGridView.Rows.RemoveAt(x)
            Else
                x += 1
            End If
        Next
    End Sub