[请问]关于从关系型数据库中查询出来的记录，怎么在视图中显示的有关问题？

[请教]关于从关系型数据库中查询出来的记录，如何在视图中显示的问题？？
Dim   session   As   New   NotesSession
Dim   db   As   NotesDatabase
Dim   curdoc   As   NotesDocument
Dim   view   As   NotesView            

Set   db=   session.CurrentDatabase
Set   curDoc   =   session.DocumentContext
Set   view   =   db.GetView( "result ")


If   ConnectDB()   Then

Qry.SQL   = "select   *   from   T_convert "
status   =   DBResult.Execute

If   status=False   Then
Msgbox   "数据库操作失败！ "
Call   disconnectdb()
Exit   Sub
End   If


'查询数据库程序
Do
DBResult.NextRow
username   =   DBResult.getvalue( "username ")
password   =   DBResult.getvalue( "password ")

username   =   " <td> "+username+ " </td> "
password   =   " <td> "+password+ " </td> "


Loop   Until   DBResult.IsEndOfData

Call   disconnectdb()
End   If
End   Sub
username和password是我从sql   server里读出来的记录，我现在的想法是把多条数据库记录放到文件夹里，再给用户显示，是不是先把每条记录添加到一个NotesDocumentCollection里，然后再用NotesDocumentCollection.putallinfolder（）方法把集合添加到文件夹里。也查了一下帮助，不知道如何作这个操作，请教一下大家。如果这种思路不对，请给写意见，能详细些最好

------解决方案--------------------
view只能显示document，c/s下，你把取出来的记录生成文档，一条记录一个文档，然后放到fold里去，最后显示出来，b/s下，直接print一个table出来就好了