Need Help For Updating Values

Hi!



I am trying to retrieve and update data. I am retrieving the data into the respective controls such as textboxes. The codes are follow:



Retrieve data - working



Dim sqlConn As New SqlConnection()

sqlConn.ConnectionString = ConfigurationManager.ConnectionStrings("ScheduleConnectionString").ToString()



Dim com As SqlCommand = New SqlCommand("SELECT * FROM Demo_Theatre_DB WHERE ID=" & "@ID", sqlConn)



Dim paramID As New SqlParameter("@ID", SqlDbType.Int)



paramID.Direction = ParameterDirection.Input



com.Parameters.Add(paramID)

paramID.Value = e.Value

sqlConn.Open()

Dim reader As SqlDataReader = com.ExecuteReader()

While reader.Read()

StartTimeTextBox.Text = reader("StartTime")

EndTimeTextBox.Text = reader("EndTime")

CompanyNameTextBox.Text = reader("CompanyName")

PurposeTextBox.Text = reader("Purpose")

AccountManagerTextBox.Text = reader("AccountManager")

PresenterTextBox.Text = reader("Presenter")

ColorDDL.SelectedValue = reader("ColorCode")

StatusRadioButtonList.SelectedValue = reader("Status")

CommentTextBox.Text = reader("Comments")

End While




update the data - NOT WORKING




Dim sqlConn As New SqlConnection()

sqlConn.ConnectionString = ConfigurationManager.ConnectionStrings("ScheduleConnectionString").ToString()


Dim cmd As SqlCommand = New SqlCommand("UPDATE Demo_Theatre_DB SET StartTime = @StartTime, EndTime = @EndTime, CompanyName = @CompanyName, Purpose = @Purpose, AccountManager = @AccountManager, Presenter = @Presenter, ColorCode = @ColorCode, Status = @Status, Comments = @Comments WHERE ID=@ID")



cmd.Parameters.AddWithValue("StartTime", StartTimeTextBox.Text)

cmd.Parameters.AddWithValue("EndTime", EndTimeTextBox.Text)

cmd.Parameters.AddWithValue("CompanyName", CompanyNameTextBox.Text)

cmd.Parameters.AddWithValue("Purpose", PurposeTextBox.Text)

cmd.Parameters.AddWithValue("AccountManager", AccountManagerTextBox.Text)

cmd.Parameters.AddWithValue("Presenter", PresenterTextBox.Text)

cmd.Parameters.AddWithValue("ColorCode", ColorDDL.SelectedValue)

cmd.Parameters.AddWithValue("Status", StatusRadioButtonList.SelectedValue)

cmd.Parameters.AddWithValue("Comments", CommentTextBox.Text)



Try

sqlConn.Open()

cmd.ExecuteScalar()


Catch ex As Exception

InsertMsgLabel.Text = ex.ToString

End Try

End Sub




I am getting the following error whenever I click update button.

"ExecuteScalar: Connection property has not been initialized"



Your help will be appriciated!



Thanks!