vb语言--关于adodb.recordset的运用

Question

 对开始                     
         Private  1             Sub Commandi click(）
   ２           DimcodelAsByte
    3           Dim rsAs NeW ADODB.Recordset
   4          rs = Nothing
   5      If codel          =2Then
   6           rs    三   执行sql
   7      End If
   8
   9      Ifrs.Fields(0).value<>0 Then
  10            "结果
  11       End If
  12
  13
  14       End Sub

在运行到第9行代码的时候会报错，请问一下原因是什么，该怎么解决这个问题

Answer 1

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