FreeTextBox

Har en freetextbox som jag ska använda till editering av en viss text.. först läser jag in texten med en ftb.text = värde och sedan editerar texten och sedan en update sats. De problem jag har är att om ja har ftb.text = värde aktiviterad fungerar inte update satsen, utan den bara vill läsa in den gamla texten lokalt och på webservern så kapar den texten och skriver bara in första raden.

Tips?

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        placeandra.Visible = True
        placeforhand.Visible = False

        Dim strsql As String = "SELECT * FROM(texter) WHERE (((Texter.Namn)='startinfo'));"

        Dim db As String = "texter"

        Dim ds As DataSet = DbHandler.getData(strsql, db)

        Dim texten As String = ds.Tables(0).Rows(0)("texten").ToString()
        info.Text = texten
    End Sub

 Public Sub update_Click(ByVal Sender As System.Object, ByVal E As System.EventArgs)
        '<- Databasanslutning ->
        Dim strConn As String = DbHandler.GetstrConnection
        Dim myConnection As New OleDbConnection(strConn)

        '<- Hämta all ifyllt data från webbsidan ->

        Dim Ainfo As String = info.Text
        'Dim Uploader_value As String = getname(HttpContext.Current.User.Identity.Name)

        'Dim Tnman As String = getname(HttpContext.Current.User.Identity.Name)

        Dim strSQL As String = "UPDATE Texter SET texten= @texta WHERE (((Namn)='Startinfo'));"

        'Response.Write(Ainfo)
        Dim myCommand As New OleDbCommand(strSQL, myConnection)
        myCommand.Parameters.Add("@texta", OleDbType.LongVarChar, 8000).Value = Ainfo

        Dim numRowsAffected As Integer = 0
        Try
            myCommand.Connection.Open()
            numRowsAffected = myCommand.ExecuteNonQuery()
            myCommand.Connection.Close()
        Catch ex As Exception
            lblMessage.Text = ex.Message
            Exit Sub
        End Try

        If numRowsAffected > 0 Then
            lblMessage.Text = lblMessage.Text & "Information sparad"
 

        Else
            lblMessage.Text = lblMessage.Text & "Information INTE sparat"
        End If

        'Response.Redirect("nyaktiv.aspx")

    End Sub