vb6中怎样打印数据中的记录

请问各位大侠一下，有一个数据库，
Call OpenCNN(Cnn)
SQL = "select * from username where 学号=" & Text1.Text
RSt.Open SQL, Cnn, adOpenStatic, adLockBatchOptimistic
数据库字段：
学号 姓名 性别 系别 年级 入学时间 
11122 李平 男 计算机 一 2011-11-20


因为学号是唯一的，所以，要打印这条记录，RSt
请问怎么样才能方便一点的打印出来，不需要什么格式
学号:11122 姓名：李平 性别：男
系别：计算机 年级: 一 入学时间：2011-11-20

就按这样，怎么简单一点阿。

最好有点代码给解释一下，谢谢~！

sub command1_click

dim fld as adodb.field
with rst
if .recordcount>0 then
.movefirst
while not .eof
for each fld in .fields
if not isnull(fld) then
printer.print cstr(fld);
end if
next
printer.print
.movenext
wend
end if
end with

printer.enddoc

end sub