Visual Basic

    ' 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 />

Public Function FurtherUser_Authenticate() As Boolean
        Dim FrmAuthen As New FrmAuthen
        FrmAuthen.StartPosition = FormStartPosition.CenterScreen
        FrmAuthen.Show()

End Function

Private Sub FrmSetting1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  blnMustAuthenticate = True

  If blnMustAuthenticate Then
         UserVerifySuccess = False
         Me.Close()
            
         Further_Authenticate()
            
            If UserVerifySuccess = True Then
                Me.Show()
            End If
  End If


  End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, pass As String
        Try
            ObjComm = New OdbcCommand("SELECT POS_CASHIER.LocationCode, CashierID, CashierName, Pwd, IF(POS_CASHIER.IsActive=1 AND POS_CASHIERGROUP.IsActive, 1, 0) AS IsActive, CanChangePwd, POS_CASHIER.GroupID, GroupName, IsFullAccess  FROM POS_CASHIER INNER JOIN POS_CASHIERGROUP ON POS_CASHIER.GROUPID = POS_CASHIERGROUP.GROUPID AND POS_CASHIER.LocationCode = POS_CASHIERGROUP.LocationCode WHERE CashierID='" & TextBox1.Text & " ' ", ObjConn)
            ObjConn.Open()
            ObjRead = ObjComm.ExecuteReader
            If ObjRead.Read Then
                pass = ObjRead.Item(3)
                x = ObjRead.Item(8)
                ObjConn.Close()
                If TextBox2.Text = pass Then
                    If x = "1" Then

                        Me.Hide()
                        Return (UserVerifySuccess = True)  ' << I need to return this to my function. Thank you~!

                    Else
                        ObjConn.Close()
                        MessageBox.Show("Sorry. You are not allowed to run this task.")

                    End If
                Else
                    ObjConn.Close()
                    MessageBox.Show("Your password is invalid.")
                End If
            Else
                ObjConn.Close()
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            ObjConn.Close()
        End Try


    End Sub