vb小問題(編號:4663)

strSUPPLYSHOW = DBGirdSUB.Columns("產品編號").Text
If strSUPPLYSHOW = "" Then
    MsgBox "無法查詢", vbExclamation & vbOKOnly, "錯誤訊息"
    Else
    FrmSUPPLYSHOW.Show

為什麼錯誤訊息會在第一行,此處應有物件