probleme sqldatareader avec textbox

bonjour je veux cree une interface qui permet au utilisateur de modifie les informations qui ce trouve au textBox.text et de les enregistres dans une base de donne sql server le problemme est que une foit les donnes sont charge avec datareader dans le textbox la requette update ne marche pas voici mon code
mais si je mais une chaine de carractaire a la place de datareader update marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Imports System.Data.SqlClient
Imports System.Data
Imports System.Data.SqlClient.SqlDataReader
Partial Class _Default
    Inherits System.Web.UI.Page
 
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim connectionString As String = "Data Source=(LocalDB)\v11.0;AttachDbFilename=C:\Users\napster\Documents\ZE.mdf;Integrated Security=True;Connect Timeout=30"
 
 
 
        Dim queryString As String = "Update TEST Set chaine1= '" & TextBox1.Text & "' "
        Dim connection As New SqlConnection(connectionString)
 
        Dim command As New SqlCommand(queryString, connection)
 
        connection.Open()
        command.ExecuteNonQuery()
        connection.Close()
 
    End Sub
 
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim connectionString As String = "Data Source=(LocalDB)\v11.0;AttachDbFilename=C:\Users\napster\Documents\ZE.mdf;Integrated Security=True;Connect Timeout=30"
        Dim queryString As String = "SELECT * from TEST "
        Dim connection As New SqlConnection(connectionString)
 
        Dim command As New SqlCommand(queryString, connection)
 
        connection.Open()
        Dim dataReader As SqlDataReader = command.ExecuteReader()
 
        While dataReader.Read()
            TextBox1.Text = dataReader.GetSqlString(3)
        End While
 
    End Sub
End Class