Question

vb提示实时错误'94'，无效使用null?

Set rs = query(strsql)
MSFlexGrid1.Rows = 1
Do While Not rs.EOF
If Check1(0).Value = Checked Then
str3 = rs("drugRxName")
End If
If Check1(1).Value = Checked Then
str4 = rs("stock_drugSpace")
str3 = str3 + " & vbTab & " + str4
End If
If Check1(2).Value = Checked Then
str4 = rs("stock_libUnit")
str3 = str3 + " & vbTab & " + str4
End If
If Check1(3).Value = Checked Then
str4 = rs("stock_packUnit")
str3 = str3 + " & vbTab & " + str4
End If
MSFlexGrid1.AddItem str3
MSFlexGrid1.Refresh
rs.MoveNext
Loop
那位高人能收指点一下！vb提示实时错误'94'，无效使用null?
strsql是一个查询语句，语句没有错

Answer 1

Text1(i).Text = Adodc1.Recordset(i)
改成
if not isnull(Adodc1.Recordset(i)) then Text1(i).Text = Adodc1.Recordset(i)