Changes to .net web app form fields will not save to database

I have a form with multiple fields.  The form can either be in edit mode or new record mode depending on the value of Session("ConsultantTimeID")

Adding a new record works fine.  However, if an existing record is passed to the form (i.e. Session("...ID") = 78), the new values are not captured.  Below is my code

For instance, if I bring up a record where hours = 2.5 and I change it to 3 and set a breakpoint that assigns txtTime.Text to the parm value, it still shows 2.5

I tried setting autopostback on txtTime just to see if that might fix it, but it just reloaded the original value for the field.

I don't know if this is relevant, but to populate the form (in edit mode), I fill a dataset and use it's only datarow to populate the various fields.  I'll put that code below just in case anyone needs it.

Thanks so much for any help!

---------------save code------------------------
        Dim cmd As SqlCommand, StoredProc As String


        'put code here to update the record if that's what's happening...
        If Session("ConsultantTimeID") = 0 Then
            StoredProc = "InsertConsultantTimeRecords"
        Else
            StoredProc = "UpdateConsultantTimeRecords"
        End If



        'Try
        cmd = New SqlCommand(StoredProc, Session("cn"))
        cmd.CommandType = CommandType.StoredProcedure

        'add stored proc parameters
        If Session("ConsultantTimeID") <> 0 Then
            cmd.Parameters.Add("@ConsultantTimeID", Session("ConsultantTimeID"))
        End If

        cmd.Parameters.Add("@ClientID", frmClientID)
        cmd.Parameters.Add("@ProjectID", drpProjects.SelectedItem.Value)
        cmd.Parameters.Add("@UserID", frmUserID)
        cmd.Parameters.Add("@TaskID", drpTasks.SelectedItem.Value)
        cmd.Parameters.Add("@WorkDate", CDate(txtWorkDate.Text))
        cmd.Parameters.Add("@EndDate", CDate(txtEndDate.Text))
        cmd.Parameters.Add("@Hours", txtTime.Text)
        cmd.Parameters.Add("@AfterHours", IIf(chkAfterHours.Checked, 1, 0))
        cmd.Parameters.Add("@Notes", txtDescription.Text)
        cmd.Parameters.Add("@Billable", IIf(chkBillable.Checked, 1, 0))
        cmd.Parameters.Add("@TravelFrom", txtTravelFrom.Text)
        cmd.Parameters.Add("@TravelTo", txtTravelTo.Text)
        cmd.Parameters.Add("@Miles", IIf(Len(Trim(txtTravelMiles.Text)) = 0, 0, txtTravelMiles.Text))
        cmd.Parameters.Add("@MileageCost", CDec(IIf(Len(Trim(txtTotalMileageCost.Text)) = 0, 0, txtTotalMileageCost.Text)))
        cmd.Parameters.Add("@CarRental", CDec(IIf(Len(Trim(txtCarRental.Text)) = 0, 0, txtCarRental.Text)))
        cmd.Parameters.Add("@TollsParking", CDec(IIf(Len(Trim(txtTollsParking.Text)) = 0, 0, txtTollsParking.Text)))
        cmd.Parameters.Add("@PersonalMeals", CDec(IIf(Len(Trim(txtPersonalMeals.Text)) = 0, 0, txtPersonalMeals.Text)))
        cmd.Parameters.Add("@BusinessExpenses", CDec(IIf(Len(Trim(txtBusinessExpenses.Text)) = 0, 0, txtBusinessExpenses.Text)))
        cmd.Parameters.Add("@CustomerComments", txtCustomerComments.Text)
        cmd.Parameters.Add("@LastModified", Now)


        cmd.ExecuteNonQuery()

---------------end save code------------------------



--------------form field populate code-----------------------

        Dim dt As DataTable, drow As DataRow

        dt = TimeRecordDs.Tables(0)
        drow = dt.Rows(0)

        'first, figure out frmClientID
        frmClientID = drow("ClientID")

        'populate the project drop down for this client id
        Call LoadProjectDropDown()

        'the dropdowns...
        drpProjects.SelectedValue = drow("projectid")

        If drow("TaskID") > 0 And drow("taskID") <> Nothing Then
            drpTasks.SelectedValue = drow("taskid")
        Else
            drpTasks.SelectedValue = 1 'general
        End If


        'the text fields...
        txtWorkDate.Text = frmDataRow("WorkDate")
        txtEndDate.Text = frmDataRow("WorkDate")
        txtTime.Text = frmDataRow("Hours")
        txtDescription.Text = frmDataRow("Notes")
        chkBillable.Checked = frmDataRow("Billable")
        chkAfterHours.Checked = frmDataRow("AfterHours")
        txtTravelFrom.Text = frmDataRow("TravelFrom")

        txtTravelFrom.Text = frmDataRow("TravelFrom")
        txtTravelTo.Text = frmDataRow("TravelTo")
        txtTravelMiles.Text = frmDataRow("Miles")
        txtTotalMileageCost.Text = frmDataRow("MileageCost")
        txtCarRental.Text = frmDataRow("CarRental")
        txtTollsParking.Text = frmDataRow("TollsParking")
        txtPersonalMeals.Text = frmDataRow("PersonalMeals")
        txtBusinessExpenses.Text = frmDataRow("BusinessExpenses")