ASP.Net สอบถาม การเพิ่มข้อมูล แบบฟอร์มบันทึก แบบเลือกอย่างใดอย่างนึง

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

        Try

            GenerateID()
            sb = New StringBuilder
            sb.Remove(0, sb.Length())
            sb.Append(" INSERT INTO tblTool(ToolID,ToolName,CategoryID,Brand,Qty,ReceiveDate,InsuranceDate,DepartmentID,CompanyID,ToolPic)")
            sb.Append(" VALUES (@ToolID,@ToolName,@CategoryID,@Brand,@Qty,@ReceiveDate,@InsuranceDate,@DepartmentID,@CompanyID,@ToolPic)")

            Com = New SqlCommand
            With Com
                .CommandType = CommandType.Text
                .CommandText = sb.ToString
                .Connection = Conn
                .Parameters.Clear()
                .Parameters.Add("@ToolID", SqlDbType.VarChar).Value = LastID
                .Parameters.Add("@ToolName", SqlDbType.VarChar).Value = txtToolName.Text
                .Parameters.Add("@CategoryID", SqlDbType.Int).Value = CInt(ddlCategory.SelectedValue)
                .Parameters.Add("@Brand", SqlDbType.VarChar).Value = txtBrand.Text
                .Parameters.Add("@Qty", SqlDbType.Int).Value = CInt(txtQtyTool.Text)
                .Parameters.Add("@ReceiveDate", SqlDbType.VarChar).Value = CStr(txtReceiveDate.Text)
                .Parameters.Add("@InsuranceDate", SqlDbType.VarChar).Value = CStr(txtInsuranceDate.Text)
                .Parameters.Add("@DepartmentID", SqlDbType.Int).Value = CInt(ddlDepartment.SelectedValue)
                .Parameters.Add("@CompanyID", SqlDbType.Int).Value = CInt(ddlCompany.SelectedValue)
                .Parameters.Add("@ToolPic", SqlDbType.VarChar).Value = tmpPathFilePicture
                .ExecuteNonQuery()

            End With

            Response.Write("<script language=javascript>")
            Response.Write("alert('คุณต้องการบันทึกข้อมูล');")
            Response.Write("</script>")

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


    End Sub