急 VB6.0 实时错误“424” 要求对象

问题出在第一行，说明没有txtFilePath这个控件，将txtFilePath.Text修改为cmdlFilePath.FileName，其中cmdlFilePath为CommonDialog控件的名称（选中CommonDialog控件，在属性窗口中看一下其Name）。
另外，判断文件是否为空可用filelen，如：
if filelen(文件名)=0 then exit sub
然后：
open .... for ...

cmdSave这个控件你确定有没有？
如果是粘贴的代码，就千万注意了。

If Trim(txtFilePath.Text) = "" Then'CommonDialog吗?那应该是 txtFilePath.FileName才对呀? MsgBox "未选择文件.!!", vbInformation + vbSystemModal, "保存出错"
Exit Sub
End If
If (Dir(Trim(txtFilePath.Text)) = "") Then Exit Sub

你的程序中对象有好几个，如txtFilePath、rsImage等等，不知道是到底出在那一句？