Помогите разобраться:

Dim rst As DAO.Recordset
Dim i
Set rst = CurrentDb.OpenRecordset("MSysObjects", dbOpenDynaset)
      With rst
            .FindFirst ("type=-32768")
            For i = 0 To i = rst.RecordCount
                Debug.Print .Fields("Name").Value & "   " & .Fields("Type").Value
            i = i + 1
            Next

      End With
Set rst = Nothing

rst.RecordCount=1, хотя в таблице много значений. Если убираю .FindFirst ("type=-32768"), все равно =1

http://www.sql.ru/forum/1098770/count-v-recordset