vb语言--adodb.recordset的运用

在运行到代码第九行的时候，会报错
请问原因是什么，该怎么解决欸

code1=2是否满足，sql有没有执行，是rs.Open 你的sql了么
然后返回的有数据么，看看 rs.RecordCount是不是0
VB为什么不用自己的那个开发环境，可以调试下