求助.在用VB编程时,提示"未找到方法或数据成员"

Private Sub cmdChooseOne_Click()
CDLog.FileName = "" '设置文件名为空,防止重复使用上一次的文件
CDLog.ShowOpen '打开文件选择对话框
If Trim(CDLog.FileName) <> "" And Dir(Trim(CDLog.FileName)) <> "" And UCase(Right(Trim(CDLog.FileName), 4)) = ".exe" Or UCase(Right(Trim(CDLog.FileName), 4)) = "com" Then
'判断是否选择了文件,文件是否存在,是否是.exe或.com文件
txtChooseFile.BackColor = vbWhite
txtChooseFile.Text = Trim(CDLog.FileName) '是,则获取文件名
cmdRun.Enabled = True
cmdRun.SetFocus '使转换按钮有交,并设置焦点
Else '否,则提示
txtChooseFile.BackColor = vbCyan
txtChooseFile.Text = "可能未选择文件或者文件名不存在,也可能不是exe或com文件!"
cmdRun.Enabled = False
End If
End Sub
上面的这个错误所在的代码段~!
CDLog.FileName = ""回答一楼的~!是这一行~!就是第二行里~!
提示"未找到方法或数据成员"
CDLog是通用对话框
一楼的兄弟~!还是不行啊~你把我的代码拿去调试一下看看~!~

求助.在用VB编程时,提示"未找到方法或数据成员" 小弟用VB编程时碰到一个小问题求助， 求助编程高手：vb编程 VB编程求助~~~~~~~~~~~~~~ 紧急求助VB编程！ VB编程求助 vb基础编程求助 新手求助:VB编程 VB编程，求助！！！！！！！！！！ vb编程求助