For count = 0 To dgv_impegni.RowCount - 1
            param1 = dgv_impegni.Item("DATA", count).Value.ToString()
            param2 = dgv_impegni.Item("ORA", count).Value.ToString()
            param3 = dgv_impegni.Item("MEMO", count).Value.ToString()
            param4 = dgv_impegni.Item("N", count).Value
            cmd_agg = conn.CreateCommand()
            cmd_agg.CommandText = "UPDATE memo SET data = '" & param1 & "', ora = '" & param2 & "', memo = '" & param3 & "' WHERE id = " & param4
            Try
                cmd_agg.ExecuteNonQuery()
                aggiornato = True
                cmd_agg.Dispose()
            Catch ex As Exception
                aggiornato = False
            End Try
        Next