ASP.Net ช่วยดูโค้ดให้หน่อยค่ะ หน้าแก้ไข มันไม่เข้าฐานข้อมูลอ่ะค่ะ

Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Try
            tmpPictureName = FileUpload1.FileName
            tmpPathFilePicture = "~/Mypic/" & tmpPictureName
            Dim CurrentPath As String = Server.MapPath("~/Mypic/")
            If FileUpload1.HasFile Then
                CurrentPath += tmpPictureName
                FileUpload1.SaveAs(CurrentPath)
                tmpPathFilePicture = "~/Mypic/" & tmpPictureName
            Else
                tmpPathFilePicture = Image1.ImageUrl
            End If

            strSQL = "UPDATE tblTool SET " & _
            " ToolID = '" & Me.lblToolID.Text & "' " & _
            " ,ToolName = '" & Me.txtToolName.Text & "' " & _
            " ,CategoryID = '" & Me.ddlCategory.SelectedValue & "' " & _
            " ,Brand = '" & Me.txtBrand.Text & "' " & _
            " ,Qty = '" & Me.txtQtyTool.Text & "' " & _
            " ,ReceiveDate = '" & Me.txtReceiveDate.Text & "' " & _
            " ,InsuranceDate = '" & Me.txtInsuranceDate.Text & "' " & _
            " ,DepartmentID = '" & Me.ddlDepartment.SelectedValue & "' " & _
            " ,CompanyID = '" & Me.ddlCompany.SelectedValue & "' " & _
            " ,ToolPic = '" & Me.Image1.ImageUrl & "' " & _
            " WHERE ToolID = '" & Request.QueryString("ToolID") & "' "

            Com = New SqlCommand
            With Com
                .Connection = Conn
                .CommandText = strSQL
                .CommandType = CommandType.Text
                .ExecuteNonQuery()
            End With


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
End Sub

Try
            tmpPictureName = FileUpload1.FileName
            tmpPathFilePicture = "~/Mypic/" & tmpPictureName
            Dim CurrentPath As String = Server.MapPath("~/Mypic/")
            If FileUpload1.HasFile Then
                CurrentPath += tmpPictureName
                FileUpload1.SaveAs(CurrentPath)
                tmpPathFilePicture = "~/Mypic/" & tmpPictureName
            Else
                tmpPathFilePicture = Image1.ImageUrl
            End If