VB 数据库查询为Null 如何强制为其他提示语？

Question

rs.Open "SELECT * FROM 商品库 where 商品编号 ='" & (商品编号.Text) & "'", mcon, 1, 1

If Not rs.EOF Then
商品编号 = rs.Fields("商品编号").Value & ""
商品名称 = rs.Fields("商品名称").Value & ""

Insert_show
商品编号 = ""
商品名称 = ""
Insert_show
End If

            请问，这句代码如何修改，才可以改为SQL语句查询结果为Null时，显示查无此商品？谢谢

Answer 1

on error goto errproc:
rs.Open "SELECT * FROM 商品库 where 商品编号 ='" & (商品编号.Text) & "'", mcon, 1, 1

If Not rs.EOF Then
商品编号 = rs.Fields("商品编号").Value & ""
商品名称 = rs.Fields("商品名称").Value & ""

Insert_show
输出纳税人名称 = ""
商品名称 = ""
Insert_show
End If
exit sub或function
errproc:
msgbox "查无此商品"
end sub/function