listview 显示有关问题

listview 显示问题
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”错误！）（注：数据库中，对应项允许为空）
但是添加了红色处语句解决！！
问问，不添加红色语句，报错的原因，请高人帮忙、、、、、、谢谢了！！

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

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