【求助】select代码，同一个代码，哪里错了

Dim cna As New ADODB.Connection
Dim rs As New ADODB.Recordset
cna.Open "provider=microsoft.jet.oledb.4.0;data source=D:\002.mdb
rs.Open "Select Count(*) From baccini_table Where Comment not Like '%$%'", cna
MsgBox rs(0).Value
rs.Close
cna.Close
代码如上，数据库002.mdb里面总共有22行，其中字段comment带有$的有3个，可是每次查询就是只给我结果22