HELP:关于INPUTBOX()点击取消后仍然出现窗体的疑惑

aries1912

现有表“AMERICAN LINE (IM)”，表中有字段[Part #],[BP1]。现做窗体1如下，窗体1代码如下：

Public str As String
      Private cd As String

Private Sub Form_Load()
     cd = InputBox("请输入产品代码:")
     str = "SELECT * FROM [AMERICAN LINE (IM)] WHERE [PART #] Like '*" & cd & "*' "
      Forms!窗体1.RecordSource = str

End Sub

小弟现在的困惑是当点击取消按钮后，“窗体1”仍然会跳出来，求高手解惑，先谢过！

sgrshh29

...........................
cd = InputBox("请输入产品代码:")
If cd = "" Then
DoCmd.Close acForm, Me.Name
Exit Sub
End If
...........................