Private Sub LoadAccounts()
        Dim sSql As String
        Dim intNewIndex As Integer
        Dim sList As String
        Dim bBool As Boolean = False

        cboAccount.Items.Clear()
        cn = New SqlConnection(My.MySettings.Default.ConStr)

        If cn.State = ConnectionState.Open Then cn.Close()
        cn.Open()

        sSql = "SELECT kAccountID, sAccountCode, sAccountName FROM Account "
        sSql += "Where bActive = 0 AND sRevenueCentre = 'DB' ORDER BY sAccountCode"

        Dim cmdSQL1 As New SqlClient.SqlCommand(sSql, cn)
        Dim dr1 As SqlClient.SqlDataReader

        cmdSQL1.CommandTimeout = 120000
        dr1 = cmdSQL1.ExecuteReader()

        Do While dr1.Read
            Dim objItemA = New cboItemData()

            objItemA.DataName = CStr(dr1.GetString(1)).ToString & " - " & CStr(dr1.GetString(2)).ToString
            objItemA.DataKey = dr1.GetInt32(0)
            Dim sTmp As String = CStr(dr1.GetString(1)).ToString
            With cboAccount
                sList = Trim(GetFieldWithoutNull(0, dr1))
                Try
                    colAccountID.Add(sList, sList)
                    bBool = False
                Catch ex As Exception
                    bBool = True
                End Try

                If bNewUser Then bBool = False

                If bBool Then
                    intNewIndex = .Items.Add(objItemA, True)
                Else
                    intNewIndex = .Items.Add(objItemA, False)
                End If
                .DisplayMember = objItemA.DataName
                .ValueMember = objItemA.DataKey
            End With

        Loop
        cn.Close()
        dr1.Close()

        If bNewUser Then colAccountID.Clear()

    End Sub