Set adoRs = New ADODB.Recordset
    
    Conn.Open
    Conn.CursorLocation = adUseClient
    adoRs.Open "select ITEMID,ITEMNAME,ITEMFLAG,ITEMMEMO from SYS_FIELDS WHERE ITEMSUPERID='9999' ORDER BY ITEMNAME", Conn, adOpenKeyset, adLockOptimistic    Set dcbSuperItem.DataSource = adoRs
Set dcbSuperItem.RowSource = adoRs
    dcbSuperItem.DataField = "ITEMID"
    dcbSuperItem.ListField = "ITEMNAME"    'dcbSuperItem.Refresh