Private Sub LoadAccounts()
        Dim sSql As String
        Dim intNewIndex As Integer

        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, bChecked 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)

            With cboAccount
                If dr1.GetByte(3) = 1 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()

    End Sub