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

[hupeng213]

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

[chinaboyzyq]

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