VB 查询为Null，text返回为 指定语句

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

举例查询结果是“香烟”那么，在窗体的商品名称.text控件就显示香烟，如果查询结果是空，那么商品名称.text也就是空，我现在想的就是 如果查询结果是空，那么商品名称.text就显示“查无此商品“，就是返还值为nall,则强制为”查无此商品“
请问，上面那段代码还如何修改？

鄙视回答过你了么
if 商品名称 = "" then textbox1.text = ”查无此商品“

鄙视 -> 不是

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

Insert_show
Else
商品名称 = ""
If 商品名称 = "" Then 商品名称.Caption = "查无此商品"
Insert_show
mcon.Close
End If