一个对话框有关问题

一个对话框问题
str3   =   "。。。。。。 "
Set   rs3   =   ExecuteSQL(str3,   True)
             
                MsgBox   "入院信息输入成功！按回车继续 ",   0   +   48,   "成功 "
                txtpID.Text   =   " "
                txtVisitID.Text   =   " "
                txtpSex.Text   =   " "
                TxtpName.Text   =   " "
                TxtFeeType.Text   =   " "
                txtAge.Text   =   " "

上面的代码是正确的，我就想问一下，我想如果ExecuteSQL这个函数处理成功的时候再弹出对话框，如果不成功就弹出另外一个对话框。
        谢谢了

[解决办法]
不好意思没看清问题

当数据库操作错误时 函数会返回 Nothing

所以应该判断 rs3 是否等于 Nothing

等于 Nothing 操作失败
[解决办法]
if rs3=nothing then.....


lz结贴吧....