ASP.NET

Dim cmd2 As String = ("Select Specification from DefineSpecification where CategoryID=" + id.ToString())
        Dim rdr2 As IDataReader = db.ExecuteReader(CommandType.Text, cmd2)
        Dim conn As New SqlConnection
        Dim cmd As New SqlCommand("Select Count(*) from DefineSpecification Where CategoryID=" + id.ToString(), conn)
        conn.ConnectionString = ConfigurationManager.ConnectionStrings("See2Buy").ConnectionString
        conn.Open()
        Dim count As Int32 = Convert.ToInt32(cmd.ExecuteScalar())
        While rdr2.Read
            Dim lbl = New Label()
            lbl.Width = "140"
            lbl.Text = rdr2.Item("Specification")
            For counter2 As Integer = 0 To count - count
                Dim txtbox As TextBox = DirectCast(Panel4.FindControl("TextBoxID1"), TextBox)
                Dim cmd3 As String = "Insert into Specification(CategoryID,ProductName,SpecificationHeading,SpecificationDescription)Values(" & id & ",'" + txtProductName.Text + "','" + lbl.Text + "','" + txtbox.Text + "')"
                Dim dbcmd3 As DbCommand = db.GetSqlStringCommand(cmd3)
                db.ExecuteNonQuery(dbcmd3)
            Next
        End While