SQL запрос возвращает не все данные. Почему?

  strS(1) = "SELECT "
  strS(1) = strS(1) + "p1.prop_name, p2.prop_name, "
  strS(1) = strS(1) + "Sum (Account_item.quantity), Sum(Account_item.ruble_price * Account_item.quantity) "
  strS(1) = strS(1) + "FROM Account_item, Account, goods INNER JOIN cross_property cp1 on (goods.ID=cp1.goods_id) "
  strS(1) = strS(1) + "INNER JOIN properties p1 on (cp1.prop_id=p1.id  AND p1.parent_id ='1997-06-30 23:25:50.671498') "
  strS(1) = strS(1) + "INNER JOIN cross_property cp2 on (goods.ID=cp2.goods_id) "
  strS(1) = strS(1) + "INNER JOIN properties p2 on (cp2.prop_id=p2.id  AND p2.parent_id = '1997-07-06 15:48:53.001999') "
  strS(1) = strS(1) + "WHERE ACCOUNT.ID = Account_item.account_id And Account_item.goods_id = goods.ID AND Account.state='C' " '
  strS(1) = strS(1) + "and ACCOUNT.datedoc = '" & Format(strCurrentDay, "yyyy-mm-dd") & "' and Account.deleted = '1' " '2011-03-14' "
  strS(1) = strS(1) + "GROUP BY p1.prop_name,  p2.prop_name"

  
  Dim Storage As Variant
 
  Dim wsStat As Workspace, coStat As Connection, rstRecord As Recordset, rstRec As Recordset, strS(7) As String
  Dim iCount As Long
 
  Set rstRec = coStat.OpenRecordset(strS(iNapr), dbOpenDynamic)
  rstRec.MoveLast
  iCount = Abs(rstRec.RecordCount)
  If iCount = 0 Then Exit For
  rstRec.MoveFirst
  Storage = rstRec.GetRows(iCount)

   Do while not rs.Eof
 
        ' действия с полями очередной записи rs(0),  rs(1) и т.д.
 
        rs.MoveNext
 
   Loop

Dim colRec As new Collection
 
   j&=1
 
   Do while not rs.Eof
 
        colRec.Add rs(1),j& 
 
        j&=j&+1
     
        rs.MoveNext
 
   Loop
    
   ' сейчас в коллекции colRec сидит первая колонка recordset-а
   ' обращаться по индексу: colRec.Item(n)