listview 显示问题

Question

  Me.ListView1.ListItems.Clear
  Call OpenData
    SQL = "select 设备编号,设备型号,设备名称,设备类型,图片 from 设备综合信息表 where 状态标识='入库'"
    rs.Open SQL, con, 1, 1
    Do While Not rs.EOF
       Set sblist = Me.ListView1.ListItems.Add(, , rs!设备编号)
        On Error Resume Next
        sblist.SubItems(1) = rs!设备型号
        sblist.SubItems(2) = rs!设备名称
        sblist.SubItems(3) = rs!设备类型
        sblist.SubItems(4) = rs!图片
        rs.MoveNext
    Loop
    rs.Close
  Call CloseData上面链接数据库时，当数据库中对应的“设备型号”或者其他的，有一个为空时，往listview里面添加，就报错？？？（报无效使用“NULL”错误！）（注：数据库中，对应项允许为空）
但是添加了红色处语句解决！！
问问，不添加红色语句，报错的原因，请高人帮忙、、、、、、谢谢了！！

Answer 1

添加NULL值处理，把这句话
select 设备编号,设备型号,设备名称,设备类型,图片 from 设备综合信息表 where 状态标识='入库'
改成
select isnull(设备编号,''),isnull(设备型号,'',isnull(设备名称,''),isnull(设备类型,''),isnull(图片,'') from 设备综合信息表 where 状态标识='入库'

Answer 2

.
.
.
On Error Resume Next
  sblist.SubItems(1) = rs!设备型号 & ""
  sblist.SubItems(2) = rs!设备名称 & ""
  sblist.SubItems(3) = rs!设备类型 & ""
  sblist.SubItems(4) = rs!图片 & ""
.
.
.