Below is the valid event code from the combobox

IF EMPTY(m.affil_code2)
RETURN .F.
ENDIF
*!* WAIT WINDOW(m.affil_code2)
THIS.PARENT.LstIndivAccounts.Rowsource = ""
THIS.PARENT.LstCompAccounts.Rowsource = ""

WAIT WINDOW ("Getting Available Accounts List") NOWAIT
*!* wait window (ALLTRIM(m.userid) + ALLTRIM(m.passpass))
STORE SQLCONNECT(ALLTRIM(UPPER(db2_alias)), ALLTRIM(g_mach_user), ALLTRIM(g_mach_pass)) TO DB2_CONNECT
*!* STORE SQLCONNECT(ALLTRIM(UPPER(db2_alias)), ALLTRIM(m.userid), ALLTRIM(m.passpass)) TO DB2_CONNECT

WAIT CLEAR
IF DB2_CONNECT <= 0
AERROR(CON_ERROR)
= MESSAGEBOX('Cannot make connection ' + ALLTRIM(STR(CON_ERROR(1))) + " " + CON_ERROR(2), 16, 'SQL Connect Error to DB2')
RETURN .F.
ELSE
SET ESCAPE OFF
lresult = SQLEXEC(DB2_CONNECT, "SELECT A.PORTFOLIO_ID AS ACCOUNT, A.PORTFOLIO_HIRE_DT AS BEGIN_DATE FROM " ;
+ LEFT(db2_owner, 4) + "CTL.PORTFOLIO A WHERE A.PORTFOLIO_ID LIKE '" + m.affil_code2 + "G%' AND A.PORT_TERM_DT IS NULL " ;
+ "AND A.PORTFOLIO_ID <> '" + m.g_account + "' ORDER BY 1","COMP_LIST_TEMP")
SET ESCAPE ON
IF lresult <= 0
AERROR(CON_ERROR)
= MESSAGEBOX('Cannot return Composite list ' + ALLTRIM(STR(CON_ERROR(1))) + " " + CON_ERROR(2), 16, 'SQL Error from DB2')
RETURN .F.
ENDIF

SELECT * FROM COMP_LIST_TEMP T LEFT JOIN MEM_TEMPLATE MT ON T.account = MT.mbr_acct WHERE ;
EMPTY(MT.mbr_acct) INTO CURSOR COMP_ACCTS
*!* SELECT COMP_ACCTS
*!* BROWSE NORMAL

SET ESCAPE OFF
lresult = SQLEXEC(DB2_CONNECT, "SELECT A.ACCOUNT, A.BEGIN_DATE FROM " ;
+ LEFT(db2_owner, 4) + "PER.ACTREF A WHERE A.ACCOUNT LIKE '" + m.affil_code2 + "%' AND A.CLOSE_DATE IS NULL " ;
+ "ORDER BY 1","ACCT_LIST_TEMP")
SET ESCAPE ON
IF lresult <= 0
AERROR(CON_ERROR)
= MESSAGEBOX('Cannot return Account list ' + ALLTRIM(STR(CON_ERROR(1))) + " " + CON_ERROR(2), 16, 'SQL Error from DB2')
RETURN .F.
ENDIF

SELECT * FROM ACCT_LIST_TEMP T LEFT JOIN MEM_TEMPLATE MT ON T.account = MT.mbr_acct WHERE ;
EMPTY(MT.mbr_acct) INTO CURSOR INDIV_ACCTS

*!* SELECT INDIV_ACCTS
*!* BROWSE NORMAL
SQLDISCONNECT(0)
ENDIF

THIS.PARENT.LstIndivAccounts.ROWSOURCE = "INDIV_ACCTS"
THIS.PARENT.LstCompAccounts.ROWSOURCE = "COMP_ACCTS"
THIS.PARENT.LstIndivAccounts.Requery()
THIS.PARENT.LstCompAccounts.Requery()
*!* THIS.PARENT.LstIndivAccounts.Refresh
*!* THIS.PARENT.LstCompAccounts.Refresh

THISFORM.REFRESH