vb rs记录集显示问题 求救！

For i = 1 To 10
Print i,
 If i Mod 5 = 0 Then Print
Next i
上面的代码得到的效果是：
1  2  3  4  5  
6  7  8  9  10
rs记录集能不能这样排序
=========================
我的rs记录集有多行 每行多字段
Call openconn
        sql = "select * from CF_ZY_MX where CF_ZY_id ='20101121123641'"
        rs.Open sql, conn, adOpenDynamic, adLockOptimistic
        If rs.EOF Then
         MsgBox "没有找到记录"
        Else
rs记录集也有多行记录 每行3列
字段1  字段2  字段3
张一   15   小学
张二   18   高中
张三   23    大学
张四   24    大学
张五   15    小学
张六   18    高中
张七   23    大学
张八   24   大学
张九   5     小学
张十   18   高中输出显示的时候想得到以下排序效果 记录集横向换行显示 张一 15 小学    张二 18 高中   张三 23 大学   张四 24  大学   张五 15  小学张六 18  高中   张七 23  大学   张八 24  大学  张九  5  小学    张十 18  高中谢谢大家！