VB 实时异常 '424':要求对象

VB 实时错误 '424':要求对象
Private Sub Command4_Click()
  CommonDialog1.DialogTitle = "请输入数据库文件名："
  CommonDialog1.Flags = cdlOFNHideReadOnly 'Or cdlOFNOverwritePrompt
  CommonDialog1.Filter = "Excel文件(*.xls)|*.xls"
  CommonDialog1.FilterIndex = 1
  CommonDialog1.ShowOpen
   
  Route.Text = CommonDialog1.FileName
   
  Dim strLin As String
   
  If Trim(Route.Text) = "" Then
  MsgBox "数据库路径不能为空！", vbCritical, "错误"
  Exit Sub
  End If
End Sub


我也上网查了说控件不存在，我看了控件存在的。我另外一个类似的程序也有跟这完全一样的一段代码没有报错，Why？

[解决办法]
错误指向哪一行？
[解决办法]
你这个窗体上确定有一个叫Route的TextBox才可以
[解决办法]
确定有CommonDialog1？
把CommonDialog1删除了再拖上个
[解决办法]
Ctrl+T里面找microsoft Common Dialog Control 6.0

探讨

引用:

确定有CommonDialog1？
把CommonDialog1删除了再拖上个

CommonDialog1怎么加？我另外一个程序里也有CommonDialog1，但是也没有啊。

[解决办法]
你應該是沒有CommonDialog1控件吧，ctrl+T，然後點查找，在system32文件夾裏面，有個comdlg32。OCX這個文件，選中，然後點打開，然後確定，在左邊工具盒里有一個CommonDialog空件，双击它，就可以把CommonDialog控件加载到form里面了。然后就可以用了