我就这么多分数，基本上全部的放上了，请大家回答打印以及数据库空数据筛选的问题。

Question

首先是数据库的库数据筛选
以下是我现在使用的源程序：
Set db = OpenDatabase(Cmd1.FileName)
Set rs = db.OpenRecordset("Select 气测数据表.* From 气测数据表 ORDER BY Depth")
num_fields = rs.Fields.Count
ReDim field_width(0 To num_fields - 1)
dbi = num_fields - 1
For i = 0 To num_fields - 1
    field_width(i) = rs.Fields(i).Size
    field_width(i) = field_width(i) + 1
Next i
Do While Not rs.EOF
    num_processed = num_processed + 1
    dbj = num_processed
    For i = 1 To 5
        'field_value = rs.Fields(i).Value
        Testdb(i, dbj) = Val(rs.Fields(i).Value)
    Next i
    rs.MoveNext
Loop
rs.Close
db.Close
但是不能筛选有空字段的数据录入，如果我要把空字段当作0录入该怎么办？希望大家能够给我一个详细解答，最好是和我现有的程序同类型的数据库操作。
顺便问一下打印的问题，就是我前些天本来找到一个打印控件，就是把VB里面的文本以及图像元素输出到WORD然后打印的，但是因为系统崩溃，丢失了，希望大家能帮助我再次找到这个控件。
我没有多少分，全部放上了，希望有人能解答，谢谢大家了！

Answer 1

TO:comic_729 (小狼羔) 
筛选有空字段的数据录入.
TEXT1.TEXT=IIF(ISNULL(RS.FILES(1).VALUE),0,RS.FILES(1).VALUE)
'IsNull 函数
返回 Boolean 值，指明表达式是否不包含任何有效数据 (Null)。IsNull(expression)expression 参数可以是任意表达式。说明
如果 expression 为 Null，则 IsNull 返回 True，即表达式不包含有效数据，否则 IsNull 返回 False。如果 expression 由多个变量组成，则表达式的任何组成变量中的 Null 都会使整个表达式返回 True。Null 值指出变量不包含有效数据。Null 与 Empty 不同，后者指出变量未经初始化。Null 与零长度字符串 ("") 也不同，零长度字符串往往指的是空串。重点 使用 IsNull 函数可以判断表达式是否包含 Null 值。在某些情况下想使表达式取值为 True，例如 IfVar=Null 和 IfVar<>Null，但它们通常总是为 False。这是因为任何包含 Null 的表达式本身就为 Null，所以表达式的结果为 False。下面的示例利用 IsNull 函数决定变量是否包含 Null ：Dim MyVar, MyCheck
MyCheck = IsNull(MyVar)      ' 返回 False。
MyVar = Null                 ' 赋为 Null。
MyCheck = IsNull(MyVar)      ' 返回 True。
MyVar = Empty                ' 赋为 Empty。
MyCheck = IsNull(MyVar)      ' 返回 False。
IIF() 函数根据条件返回指定的值。（光看这句话肯定不明白:-(，接着往下看吧）语法IIF(逻辑表达式, 表达式1, 表达式2)（能明白点了吗？还不明白就再往下看）返值类型表达式1、2是什么类型就是什么类型。（越看越糊涂 &:-(参数描述逻辑表达式：如果此表达式为真，该函数就返回表达式1，否则返回表达式2。比如：? iif(a=1,'正确','错误')如果 a 等于1，就显示“正确”，否则就显示“错误”。（这下明白了吧 ^o^）聪明的读者一定会想到，用下面这段程序也可以实现上面的功能：if a=1
  ? '正确'
else
  ? '错误'
endif 但很显然用 iif() 函数简单得多，而且程序运行的速度也快