dim i as ingeger for i=1 to 6 adodc13.recordsource="select*from downpart where [group] like 'S" & i & "%' and [detail]like '" & label11(68).caption & "'" adodc13.refresh label11(i+77).caption=adodc13.recordset.recordcount next i