Visual Basic

private void button1_Click(object sender, EventArgs e)
        {
            foreach (Control cntl in this.Controls)
            {
                if (cntl.HasChildren)
                {
                    lockControls(cntl);
                }
                else
                {
		    cntl.Enabled = false;
		}
            }
        }
		
private void lockControls(Control subcntl)
        {
            foreach (Control Ncntl in subcntl.Controls)
            {
                if (Ncntl.HasChildren)
                {
                    lockControls(Ncntl);
                }
                else
                {
                    Ncntl.Enabled = false;
                }
            }
        }

    ' Declare comboBox1 as a ComboBox.    

         Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox

    ' This method initializes the combo box, adding a large string 
    ' array but limiting the drop-down size to six rows so the combo box
    ' doesn't cover other controls when it expands. 
   

Private Sub InitializeComboBox()
        Me.ComboBox1 = New System.Windows.Forms.ComboBox

        Dim employees() As String = New String() {"Hamilton, David", _
            "Hensien, Kari", "Hammond, Maria", "Harris, Keith", _
            "Henshaw, Jeff D.", "Hanson, Mark", "Harnpadoungsataya, Sariya", _
            "Harrington, Mark", "Harris, Keith", "Hartwig, Doris", _
            "Harui, Roger", "Hassall, Mark", "Hasselberg, Jonas", _
            "Harnpadoungsataya, Sariya", "Henshaw, Jeff D.", "Henshaw, Jeff D.", _
            "Hensien, Kari", "Harris, Keith", "Henshaw, Jeff D.", _
            "Hensien, Kari", "Hasselberg, Jonas", "Harrington, Mark", _
            "Hedlund, Magnus", "Hay, Jeff", "Heidepriem, Brandon D."}

        ComboBox1.Items.AddRange(employees)                

        Me.ComboBox1.Location = New System.Drawing.Point(136, 32)
        Me.ComboBox1.MaxDropDownItems = 5
        Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDown
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(136, 81)
        Me.ComboBox1.TabIndex = 0
        Me.Controls.Add(Me.ComboBox1)
    End Sub



    ' This method is called when the user changes his or her selection.
    ' It searches for all occurrences of the selected employee's
    ' name in the Items array and adds the employee's name and 
    ' the number of occurrences to TextBox1.Text.

    ' CAUTION   This code exposes a known bug: If the index passed to the 
    ' FindStringExact(searchString, index) method is the last index 
    ' of the array, the code throws an exception.




    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim comboBox As comboBox = CType(sender, comboBox)

        ' Save the selected employee's name, because we will remove
        ' the employee's name from the list.        

        Dim selectedEmployee = CType(ComboBox1.SelectedItem, String)

        Dim count As Integer = 0
        Dim resultIndex As Integer = -1

        ' Call the FindStringExact method to find the first 
        ' occurrence in the list.                

        resultIndex = ComboBox1.FindStringExact (ComboBox1.SelectedItem)

        ' Remove the name as it is found, and increment the found count. 
        ' Then call the FindStringExact method again, passing in the index of the
        ' current found item so the search starts there instead of 
        ' at the beginning of the list.                

       While (resultIndex <> -1)
            ComboBox1.Items.RemoveAt(resultIndex)
            count += 1
            resultIndex = ComboBox1.FindStringExact _
            (selectedEmployee, resultIndex)
        End While

        ' Update the text in Textbox1.        

             TextBox1.Text = TextBox1.Text & Microsoft.VisualBasic.vbCrLf _
             & selectedEmployee & ": " & count    

End Sub

<br />
sql = "SELECT Distinct [FundID],[Name],[Code],[Date],[ILDatabase],{fn LEFT([Code],5)},CHARINDEX({fn SUBSTRING([Code],6,1)}, 'R,U,I,C') FROM [Admin].[dbo].[ReconInstructions] A WHERE [Date] Between '" & Format(dtStartDate.Text, "DD MMM YYYY") & "' AND '" & Format(dtEndDate.Text, "DD MMM YYYY") & "' "<br />
    sql = sql & "AND ILDatabase ='ILDB'"<br />
    sql = sql & " ORDER BY({fn LEFT([Code],5)} ,[Date] ,CHARINDEX({fn SUBSTRING([Code],6,1)}, 'R,U,I,C') ASC)"       <br />

<br />
"SELECT Distinct [FundID],[Name],[Code],[Date],[ILDatabase],{fn LEFT([Code],5)},CHARINDEX({fn SUBSTRING([Code],6,1)}, 'R,U,I,C') FROM [Admin].[dbo].[ReconInstructions] A WHERE [Date] Between '01 May 2008' AND '01 May 2008' AND ILDatabase ='ILDB' ORDER<br />