错误91 ，with块变量未设置

Question

Call OpenConn
rs.Open "select * from xinxi where xingming like '%" & Text1.Text & "%' or bianhao like '%" & Text1.Text & "%'", cn, 1, 1
  If Len(Trim(Text1.Text)) = 0 Or rs.EOF Then
  MsgBox "没有查询到记录集!", 16, "信息提示："
  Else
  frm_cx1.Show
Do While Not rs.EOF
  Set addlist = frm_cx1.ListView1.ListItems.Add(, , rs.Fields("bianhao"))
      addlist.SubItems(1) = rs.Fields("xingming")
      addlist.SubItems(2) = rs.Fields("jiaruriqi")
      addlist.SubItems(3) = rs.Fields("dianhua")
      addlist.SubItems(4) = rs.Fields("dizhi")
  rs.MoveNext
Loop
End If
Call CloseConn第一次查询是对的，查询过别的后再查这个错误
错误91 ，with块变量未设置  请指点

Answer 1

其他的地方是否用
set cn=nothing

Answer 2

看你的程序如果用Dim rs as adodb.recordset那么在使用前一定要记得set rs=new adodb.recordset否则就会报91错误