[VB.NET] Non riesco ad aggiornare il record

[osgb]

Salve, non riesco ad aggiornare un record di un database access nonostante non mi dia nessun errore.

Al caricamento della pagina legge questo nel file separato:

Dim codeAvviso As Integer = Request.QueryString("idavv")
' Apro la connessione
        Dim conDb As OleDbConnection
        Dim strSQLControllo As String
        Dim cmdSql As OleDbCommand

        conDb = New OleDbConnection("PROVIDER=Microsoft.JET.OleDb.4.0; Data source=" & Server.MapPath("~/app_data/DatiSito.mdb"))

        ' Query cmd
        strSQLControllo = "SELECT * FROM Avvisi WHERE [IDNews] = " & codeAvviso & ";"
        cmdSql = New OleDbCommand(strSQLControllo, conDb)
        conDb.Open()
        ' Recupero il primo dato restituito delle query
        Dim dr As OleDbDataReader = cmdSql.ExecuteReader()

        ' Sostituisce un numero in stringa e lo assegna per visualizzarlo nella label della pagina aspx
        While dr.Read()
            IDNewsDB.Value = dr("IDNews")
            TitoloNewsDB.Text = dr("TitoloNews").ToString()
            TitoloNewsDB.Text = (Replace(TitoloNewsDB.Text, "
", vbCrLf))
            TestoNewsDB.Text = dr("TestoNews").ToString()
            TestoNewsDB.Text = (Replace(TestoNewsDB.Text, "
", vbCrLf))
        End While

        conDb.Close() 

Nella pagina aspx ho questo:

<asp:HiddenField ID="IDNewsDB" runat="server" />
    Titolo avviso

    <asp:TextBox ID="TitoloNewsDB" runat="server" Width="100%" ></asp:TextBox>
    Testo 

    

    <asp:TextBox ID="TestoNewsDB" runat="server" Width="100%" Rows="12" TextMode="MultiLine"></asp:TextBox>
<asp:Button ID="NewsAGG" runat="server" Text="Modifica avviso" /> 

Modifico i dati e premo il tasto aggiorna collegato al file separato:

Protected Sub NewsAGG_Click(sender As Object, e As System.EventArgs) Handles NewsAGG.Click
        If (Page.IsValid) Then

            Dim IdentAvv As Integer = IDNewsDB.Value

            Dim NTitolo As String = TitoloNewsDB.Text
            NTitolo = (Replace(NTitolo, "´", "'"))
            NTitolo = (Replace(NTitolo, Chr(34), "´´"))
            NTitolo = (Replace(NTitolo, vbCrLf, "
"))

            Dim NTesto As String = TestoNewsDB.Text
            NTesto = (Replace(NTesto, "´", "'"))
            NTesto = (Replace(NTesto, Chr(34), "´´"))
            NTesto = (Replace(NTesto, vbCrLf, "
"))

            Dim conDbx = New OleDbConnection("PROVIDER=Microsoft.JET.OleDb.4.0; Data source=" & Server.MapPath("~/app_data/DatiSito.mdb"))
            Dim strSqlx As String = "UPDATE Avvisi SET TitoloNews = @ftitolo, TestoNews = @ftesto WHERE IDNews = " & IdentAvv & ";"
            Dim cmdSqlx As New OleDbCommand(strSqlx, conDbx)

            Dim coll As OleDbParameterCollection
            coll = cmdSqlx.Parameters

            coll.Add("@ftitolo", OleDbType.WChar)
            coll("@ftitolo").Value = NTitolo

            coll.Add("@ftesto", OleDbType.WChar)
            coll("@ftesto").Value = NTesto

            Try
                conDbx.Open()

                cmdSqlx.ExecuteNonQuery()

            Catch
                ' msg.text = "Errore aggiornamento dati"

            Finally
                conDbx.Close()

            End Try

            Response.Redirect("~/Default.aspx", True)

        End If

    End Sub 

NON CI SONO ERRORI, MA NON MODIFICA.
Qualcuno sa dove sbaglio, grazie!