Dim sqlUpdCategorie As String = ""
    Dim txtCategorie As TextBox = e.Item.Cells(1).Controls(0)
    Dim categorie As String = txtCategorie.Text
    Dim id_categorie As String = e.Item.Cells(0).Text 'sintassi diversa perchè la cella è readonly
    'elimina riga
    dv.RowFilter = "id_Categorie=" + id_categorie
    If dv.Count > 0 Then
      dv.Delete(0)
    End If

    'inserisci nuova riga
    Dim dr As DataRow = ds.Tables("Categorie").NewRow()
    dr(0) = id_categorie
    dr(1) = categorie
    ds.Tables("Categorie").Rows.Add(dr)

    sqlUpdCategorie = "UPDATE categorie set descrizione = '" & categorie & "' where id_Categorie = " & id_categorie
    Dim cn As New OleDbConnection(setcnstring)
    cn.Open()
    Dim cmd As New OleDbCommand(sqlUpdCategorie, cn)
    Try
      Dim NumRec As Integer = cmd.ExecuteNonQuery()
    Catch ex As Exception
      Response.Write(Chr(10) + Chr(13) + ex.Message)
    Finally
      cn.Close()
    End Try
    Griglia.EditItemIndex = -1
    riempigriglia(Griglia, SqlCategorie, "Categorie")