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
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
sqlStr = "select count(TechID) from TechRsltTbl " & "Union select sumTechID from (select TechID, count(TechID) as sumTechID from TechRsltTbl where sum(StuTyp)/sum(num)>90 Group by TechID)"