problema actualizacion bd

[payoyo]

Hola gente

les explico mi problema estoy intentando actualizar un regristro de una bd oracle en asp.net

en una de las paginas relleno un gripview y de hay selecciono el que quiero modificar o borrar (el borrado funciona perfectamente) de hay me marcho con esos campos a otra pagina con un formulario asi mas mono y demas que el gripview. con 2 botones(borrar y modificar) y los campos.

el problema es que cuando intento actualizar me toma de los textbox los datos antiguos los que ya tenia la bd, he pasado los datos mediante variables de sesion, despues probe borrando estas mismas, despues pasado en el link a la otra pagina los datos y ahora he tratado de realizar una consulta a la bd y mostrar el regristo el resultado es el mismo siempre me toma los datos anteriores

les adjunto el codigo que utilizo en el load de la pagina y el boton de actualizar.


Imports System.Data
Imports System
Imports System.Data.OleDb
Partial Class Default3
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim con As conexion = New conexion
con.conectar()

Dim consulta As String _
= "SELECT * FROM DEPART where dept_no =" & Request.QueryString("field1")
Dim comando As New OleDbCommand(consulta, con.conexion)
Dim dr As OleDbDataReader = comando.ExecuteReader()

If dr.HasRows Then
Do While dr.Read()
Txtdep_no.Text = dr.GetValue(0)
Txtdnombre.Text = dr.GetString(1)
Txtloc.Text = dr.GetString(2)
Loop
End If
End Sub


Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nombre As String = CStr(Txtdnombre.Text)
Dim loc As String = CStr(Txtloc.Text)
Dim con As conexion = New conexion
con.conectar()


MsgBox(nombre & " " & loc)

Dim update As String = "update depart set DNOMBRE ='" & nombre & "' where dept_no = " & CInt(Txtdept_no.Text)
MsgBox(update)
Dim comando As New OleDbCommand(update, con.conexion)

Dim comando1 As New OleDbCommand("commit", con.conexion)

Dim dr As Integer = comando.ExecuteNonQuery
MsgBox(dr)

Dim dr1 As Integer = comando1.ExecuteNonQuery

con.desconectar()
End Sub