还是关于SqlServer中更新ntext字段的问题

Protected Sub Submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Submit.Click
        Dim NewsId As String = Request.QueryString("ID")
        Dim constr As String = Web.Configuration.WebConfigurationManager.ConnectionStrings("grsqConnectionString").ConnectionString
        Dim con As SqlConnection = New SqlConnection(constr)        Dim UpdateCmd As SqlCommand = New SqlCommand("update News set Title=@Title,Author=@Author,FromUrl=@FromUrl,Contents=@Contents where NewsID=@NewsID", con)        Dim PTitle As SqlParameter = New SqlParameter("Title", SqlDbType.VarChar, 50, ParameterDirection.Input)
        PTitle.Value = Title.Text        Dim PNewsID As SqlParameter = New SqlParameter("NewsID", SqlDbType.Int)
        PNewsID.Value = CInt(NewsId)        Dim PAuthor As SqlParameter = New SqlParameter("Author", SqlDbType.VarChar, 50, ParameterDirection.Input)
        PAuthor.Value = Author.Text        Dim PFromUrl As SqlParameter = New SqlParameter("FromUrl", SqlDbType.VarChar, 50, ParameterDirection.Input)
        PFromUrl.Value = FromURL.Text        Dim PContents As SqlParameter = New SqlParameter("Contents", SqlDbType.NText, ParameterDirection.Input)
        PContents.Value = Contents.Text        UpdateCmd.Parameters.Add(PTitle)
        UpdateCmd.Parameters.Add(PAuthor)
        UpdateCmd.Parameters.Add(PFromUrl)
        UpdateCmd.Parameters.Add(PNewsID)
        UpdateCmd.Parameters.Add(PContents)        con.Open()
        UpdateCmd.ExecuteNonQuery()
        UpdateCmd.ExecuteNonQuery()        Response.Write("<script language='javascript'>alert('发布成功!')</script>")
        con.Close()
    End Sub请问，这代码有什么问题吗？为什么我的TextBox总是只能得到一个字符呢？比如我Update时向Textbox输入"aaaaaaaaaaaaaaaaaaaaaaaa",结果更新后我再看，只有一个a了，这是怎么回事呢？