'加方括号即可
rs.Open "select sum([1号]) as 1号,sum([2号]) as 2号,sum([3号]) as 3号 from 数据表", cn, adOpenDynamic, adLockPessimistic
rs.Open "select sum([1号]) as 1号,sum([2号]) as 2号,sum([3号]) as 3号 from 数据表", cn, adOpenDynamic, adLockPessimistic
