Update problem while editing text field + populate checkbox value from table

[Nithin]

My code as an txt attachment.

I have 2 drop down list boxes that on selection populate text boxes
from my database table. I am able to display the correct values in
these text boxes.
I have 2 questions:

1) I would like the user update these text fields that get populated
with data from the database. For some reason I get the error when I
change the textbox value.
Exception Details: System.Data.Sql Client.SqlExcep tion: Invalid column
name 'categoryid'.
Line 123: dbComm.ExecuteN onQuery()

My update query is:
Dim strSQL3 As String = "UPDATE Testmarket SET market = " &
txtMarket.Text & "WHERE categoryid='" & ddlCategory.Sel ectedValue() &
"'"

What I am doing wrong? categoryid is my primary key.
2) Also, I have checkboxes in the same page that have to be populated
if the column valus is 'Yes'? Do you have an idea of how to do that.

Code:
-------------------------------------------------------------------------------
Imports System.Data
Imports System.Data.Sql Client
Imports System.Configur ation

Public Class dgrid3
Inherits System.Web.UI.P age

Private strSql As String
Private objConn As SqlConnection

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Put user code to initialize the page her

If Not IsPostBack Then
'Fill Date DropDown
strSql = "SELECT categoryid, date FROM Testmarket ORDER BY
categoryid"
objConn = New
SqlConnection(" server=(local)\ NetSDK;database =Northwind;Inte grated
Security=SSPI")
Dim objCmd As New SqlCommand(strS ql, objConn)
Dim _reader As SqlDataReader

Try
objConn.Open()
_reader = objCmd.ExecuteR eader
With ddlDate
.DataSource = _reader
.DataValueField = "categoryid "
.DataTextField = "date"
.DataBind()
End With

ddlDate.Items.I nsert(0, "-Select-")
Catch ex As SqlException
Response.Write( ex.ToString)
Finally
_reader.Close()
objConn.Dispose ()
End Try
End If
End Sub

Protected Sub FillCategory(By Val sender As System.Object, ByVal e
As System.EventArg s) Handles ddlDate.Selecte dIndexChanged

'Fill Category DropDown
strSql = "SELECT categoryid FROM Testmarket " & _
"WHERE categoryid='" & ddlDate.Selecte dValue() & "'"
& _
" ORDER BY categoryid"

objConn = New
SqlConnection(" server=(local)\ NetSDK;database =Northwind;Inte grated
Security=SSPI")
Dim objCmd As New SqlCommand(strS ql, objConn)
Dim _reader As SqlDataReader
Try
objConn.Open()
_reader = objCmd.ExecuteR eader
With ddlCategory
.DataSource = _reader
.DataValueField = "categoryid "
.DataTextField = "categoryid "
.DataBind()
End With
ddlCategory.Ite ms.Insert(0, "-Select-")
Catch ex As SqlException
Response.Write( ex.ToString)
Finally
_reader.Close()
objConn.Dispose ()
End Try
End Sub

Protected Sub Fillmarket(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles ddlCategory.Sel ectedIndexChang ed
'Clear Titles Textbox
txtMarket.Text = ""
'Fill Titles TextBox
Dim strSql2 As String = "SELECT market FROM Testmarket " & _
"WHERE categoryid='" & ddlCategory.Sel ectedValue() &
"'"
objConn = New
SqlConnection(" server=(local)\ NetSDK;database =Northwind;Inte grated
Security=SSPI")
Dim objCmd As New SqlCommand(strS ql2, objConn)
Dim _reader As SqlDataReader
Try
objConn.Open()
_reader = objCmd.ExecuteR eader(CommandBe havior.SingleRo w)
If _reader.Read Then
txtMarket.Text = _reader("market ")
End If
Catch ex As SqlException
Response.Write( ex.ToString)
Finally
_reader.Close()
objConn.Dispose ()
End Try
End Sub

Private Sub Update_Click(By Val sender As System.Object, ByVal e As
System.EventArg s) Handles Update.Click
objConn = New
SqlConnection(" server=(local)\ netSDK;database =Northwind;Inte grated
Security=SSPI")
Dim strSQL3 As String = "UPDATE Testmarket SET market = " &
txtMarket.Text & "WHERE categoryid='" & ddlCategory.Sel ectedValue() &
"'"

Dim dbComm As New SqlCommand(strS QL3, objConn)
objConn.Open()
dbComm.ExecuteN onQuery()
objConn.Close()
End Sub

End Class