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

我想把激活层的所有记录输出到MSflexgrid1里面，但是结果好象总只有输出了一部分， j=1

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 问题出在哪里啊？