Visual Basic

<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