求助：帮我看看是什么问题！

<P>我想把激活层的所有记录输出到MSflexgrid1里面，但是结果好象总只有输出了一部分，
j=1</P>
<P>For Each f In rs.Fields
        str = j
        For i = 0 To des.FieldCount - 1
             str = str ; vbTab ; rs(des.FieldName(i))
        Next i
       j = j + 1
    rs.MoveNext
    Grid1.AddItem str
Next f

问题出在哪里啊？</P>