ایراد کد ؟؟

[nasiiiiiii]

سلام دوستان من قطعه کد زیرو نوشتم و 80 بار تریس ش کردم اما بازم متوجه ایرادش نشدم ای کد تا آخر if یا else (با توجه به شرایط) اجرا میشه اما فقط insert رو انجام میده و تغییراتو برای فیلد ab ثبت نمی کنه وبعد خط بنفش رو اجرا می کنه و پیغام program میشه راهنمایی کنید :عصبانی::عصبانی::ناراحت::گیج:


Try

pubsqlcmd.CommandText = "INSERT INTO TblApartemanForosh( Adress, NameMalek, SHomareTamas, NamaeSakhtaman, NoeKaf, VazeyatSanad, Vam, SenBana, Tozihat, Metrazh, GHeimatHarMetr, GheimatKol, TedadKolTabaghat, TedadKolVahedha, TbagheVahedMoredNazar) VALUES (N'" & TxtAdress.Text & "' , N'" & TxtNameMalek.Text & "',N'" & TxtSHomareTaMasmalek.Text & "',N'" & TxtNameSakhteman.Text & " ', N'" & TxtNoeKaf.Text & " ', N'" & TxtVazeyatSanad.Text & "', N'" & TxtVam.Text & "',N'" & TxtSenBana.Text & "' ,N'" & TxtTozihat.Text & "', N'" & TxtMetrazh.Text & "', N'" & TxtGHaimatharMetr.Text & "', N'" & TxtGHaimatKol.Text & "', N'" & TxtTedadKolTabaghat.Text & "', N'" & TxtTedadKolVahedha.Text & "', N'" & TxtTabaghVahed.Text & "')"

pubsqlcmd.Connection = Pubsqlcon

If Pubsqlcon.State = ConnectionState.Closed Then Pubsqlcon.Open()

pubsqlcmd.ExecuteReader()

If Pubsqlcon.State = ConnectionState.Open Then Pubsqlcon.Close()





pubsqlcmd.CommandText = "SELECT MAX(ID) FROM TblApartemanForosh"

pubsqlcmd.Connection = Pubsqlcon

If Pubsqlcon.State = ConnectionState.Closed Then Pubsqlcon.Open()

pubsqldr = pubsqlcmd.ExecuteReader

pubsqldr.Read()





If ChkAb.Checked = True Then

pubsqlcmd.CommandText = " UPDATE TblApartemanForosh SET Ab =1 where Id=" & pubsqldr(0)

pubsqlcmd.Connection = Pubsqlcon

pubsqlcmd.ExecuteReader()

Else

pubsqlcmd.CommandText = " UPDATE TblApartemanForosh SET Ab =0 where Id=" & pubsqldr(0)

pubsqlcmd.Connection = Pubsqlcon

pubsqlcmd.ExecuteReader()

End If

MessageBox.Show("عـمـلـیـات با مـوفـقـیـت انـجـام شـد", "تـوجـه", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)



Catch ex As SqlClient.SqlException

MsgBox("bank")

Catch ex As Exception

MsgBox("program")

End Try

If Pubsqlcon.State = ConnectionState.Open Then Pubsqlcon.Close()
End Sub