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
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
Set dcbSuperItem.DataSource = adoRs