vb 使用ADODB.Recordset 查询数据问题

一个普通的数据库查询，

表A 和 表B

sql = “SELECT A.ID,A.NAME,B.NUM FROM A LEFT JOIN (SELECT B.ID,B.SUM(NUM) NUM FROM B GROUP BY B.ID) B ON A.ID=B.ID”

代码如下：

dim rs as ADODB.Recordset

rs.Open sql, publicobj.adocon, adOpenStatic, adLockOptimistic

rs.Open sql, adocon, adOpenStatic, adLockOptimistic

查询结果rs.RecordCount = -1

把Sql粘贴到sql查询分析器中执行，有数据没问题。

把sql中的group去掉，就没事了

这应该是ADODB.Recordset的问题

对vb没有太深的而研究，请高手给予指点！