你的问题说的不太清楚,如果是只想调试则可以使用,debug的print方法:
for i=1 to rs.recordcount
  debug.print rs.fields(0).value, _
              rs.fields(1).value, _
              rs.fields(2).value
  rs.movenext
next如果想显示在窗体上,那么得用二维的控件,比如mshflexgrid:set mshflexgrid.datasource=rs如果想实现打印功能,则先在vb的datareport的细节部分放几个rpttextbox
设置其datafield为你查询的字段名,然后在调用打印页面的事件中写下:
set datareport1.datasouce=rs
datareport1.showok,祝好运!