错误处理问题
现有一段代码
sub form_load()
set rs =new adodb.recordset
on error goto error_handle
set rs=cn.execute("select * from tn")
exit sub
error_handle:
unload me
end sub
Private Sub Form_Unload(Cancel As Integer)
If rs.State = adStateOpen Then rs.State = adStateClosed
Set rs = Nothing
End Sub
当没表名时,它说rs.state是只读属性
我想让没表名时执行form_unload事件的内容如何处理