На форме три текстбокса

Dim conn As New System.data.OleDb.OleDbConnection("Auto Translate=True;User ID=admin;Tag with column collation when possible=False;Data Source=""192.168.72.14"";Password=123451;Initial Catalog=advert;Use Procedure for Prepare=1;Provider=""SQLOLEDB.1"";Persist Security Info=True;Workstation ID=RECSRVNEW;Use Encryption for Data=False;Packet Size=4096")
Dim cmd As New System.Data.OleDb.OleDbCommand
conn.Open()
cmd.Connection = conn
Dim rdr As System.Data.OleDb.OleDbDataReader
cmd.CommandText = "select * from TU_table where ID = " + Session("ID")
rdr = cmd.ExecuteReader()
Do While rdr.Read()
TextBox1.Text = rdr("Date_Advert")
TextBox2.Text = rdr("Advert")
TextBox3.Text = rdr("Author")
Loop
rdr.Close()
conn.Close()


Dim conn As New System.data.OleDb.OleDbConnection("Auto Translate=True;User ID=admin;Tag with column collation when possible=False;Data Source=""192.168.72.14"";Password=123451;Initial Catalog=advert;Use Procedure for Prepare=1;Provider=""SQLOLEDB.1"";Persist Security Info=True;Workstation ID=RECSRVNEW;Use Encryption for Data=False;Packet Size=4096")
Dim cmd As New System.Data.OleDb.OleDbCommand
conn.Open()
cmd.Connection = conn
Dim rdr As System.Data.OleDb.OleDbDataReader
cmd.CommandText = "update TU_table set Date_Advert = cast(" + Chr(39) + TextBox1.Text + Chr(39) + " as datetime),Advert = " + Chr(39) + TextBox2.Text + Chr(39) + ",Author = " + Chr(39) + TextBox3.Text + Chr(39) + " where ID = " + Session("ID")
cmd.ExecuteNonQuery()
conn.Close()

Редактирую текст в любом текстбоксе, перехожу в другой контрол - в этот момент опять срабатывает page_load и мой текст затирается данными из БД.
Как это обойти?

Забыл указать, что первая процедура срабатывает на Page_Load, вторая - на ButtonClick

C Me.IsPostback получилось
спасибо