sql="SELECT SUM(M2) AS M2 FROM M WHERE M2 ='" & Text1.text & "'"rs.Open sql, Conn, adOpenStatic, adLockReadOnlyText2 .text=rs.Fields("M2")
select count(1) form M where M2 = a
