如下程序，我想他能不间断就能循环完！该怎么做？

Question

Private Sub Command1_Click()
For j = 1 To 13
Data1.Recordset.MoveFirst
re: For i = 0 To 5
If i > 0 Then Data1.Recordset.MoveNext
r=Data1.Recordset.Fields(j)；在这里的是后，在调入的数据Data1.Recordset.Fields(j)是NULL，无法继续进行循环
a(j, i) = r
Print a(j, i)
Next i
Next j

End Sub
请高手帮帮忙！
万分感谢！
不是调入的Data1.Recordset.Fields(j)是错的，是循环了几次后，遇到data1里面有空值的数据，在赋值时为NULL，不能继续！

Answer 1

r = iif( isnull( Data1.Recordset.Fields(j) ) , 0,Data1.Recordset.Fields(j))或者写一个公用函数这种地方涉及数据库的地方都会用到

Answer 2

r=0If not IsNull(Data1.Recordset.Fields(j)) Thenr=Data1.Recordset.Fields(j)End If