sqlStr = "select count(TechID) from TechRsltTbl " & "Union select count(TechID) from TechRsltTbl  where sum(StuTyp)/sum(num)>90 Group by TechID" rs.Open sqlStr, conn, adOpenStatic, adLockOptimistic