Not work the update command in asp.net page using vb.net code

See more:

VB

Hi Friends,

I am using Asp.net 2005. I post my code in below. While i executed this code it will not work (not update properly). Please look into this and help me where i am in wrong.

Imports System.Data
Imports System.IO
Imports System.Data.SqlClient

Partial Class changepassword
Inherits System.Web.UI.Page

Dim con As SqlConnection
Dim cmd As SqlCommand
Dim adp As SqlDataAdapter
Dim ds As DataSet
Dim reader As SqlDataReader

<pre lang="vb">Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click</pre>

<pre lang="vb">cmd = New SqlCommand(&quot;<b>select * from ureg where uname = '&quot; &amp; TextBox1.Text &amp; &quot;' and upass = '&quot; &amp; TextBox2.Text &amp; &quot;'&quot;, con</b>)
Dim reader As SqlDataReader
reader = cmd.ExecuteReader()
If reader.Read() = True Then
cmd = New SqlCommand(&quot;<b>update ureg SET uname = &quot; &amp; TextBox1.Text &amp; &quot;, upass = &quot; &amp; TextBox3.Text &amp; &quot; , cpass = &quot; &amp; TextBox4.Text &amp; &quot; where uname = ' &quot; &amp; TextBox1.Text &amp; &quot; ' &quot;, con</b>)
cmd.ExecuteNonQuery()
Response.Write(&quot;changed&quot;)
Else

TextBox1.Text = &quot;&quot;
TextBox2.Text = &quot;&quot;
TextBox3.Text = &quot;&quot;
TextBox4.Text = &quot;&quot;
End If
reader.Close()
con.Close()</pre>
End Sub

<pre lang="vb">Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
con = New SqlConnection(&quot;Data Source=gopi;database=Hospital;Integrated Security=True&quot;)
con.Open()


End Sub
End Class</pre>



Thanks and Regards,
Gopi A