databas uppdateras inte

Har en funktion där de ska uppdatera en text mot databasen, men koden går igenom som om de vore ok, men de sker ingen uppdatering.Tips?

 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 Texter.texten= @text WHERE (((Texter.Namn)='Startinfo'));"

        Dim myCommand As New OleDbCommand(strSQL, myConnection)
        myCommand.Parameters.Add("@text", OleDbType.VarChar, 50).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

    End Sub