VB类返回记录集的问题

weisys

  我想编一个类模块,作用是接受查询条件然后查询数据返回记录集,却不知怎样

去实现,我的做法大概是这样的:

'------------------------------------------------------------------

----------------------------
  '类:CLSMSG
  
  private mvartitle as string

  Property Let Title(ByVal vData As String)
  mvartitle = vData
  End Property

  Property Get Title() As String
  Title= mvartitle
  End Property

  public sub Lookup(id as string)
    rs.open "select * from news where id='"& id &"'
    mvartitle=rs("title")
    rs.close
  end sub
'------------------------------------------------------------------

----------------------------
  '类CLSMSGS
 
  private list as new collection
 
  private mvarcontent as string

  Property Let Content(ByVal vData As String)
  mvarcontent = vData
  End Property

  Property Get Content() As String
  Content= mvarcontent
  End Property

  public sub seachmsg()
    dim sql
    sql="select * from news"
    if Content<>"" then sql=sql & " and content like '%"& content

&"%'"
    rs.open sql
    do while not rs eof
       dim msg as new clsmsg
       msg.loopup rs("id")
       list.add msg
       set msg=nothing
     rs.movenext
    loop
  end sub

  public function getfirst() as clsmsg
      set getfirst=list.item(1)
  end function
'------------------------------------------------------------------

-------------------------------
'引用时

  private sub command1_Click()
     dim ms as new clsmsgs
     ms.content="新闻"
     ms.getlist
    set ms1=ms.getfirst()
    msgbox ""& ms1.Title &""
    set ms1=nothing
    set ms=nothing
  end sub
'------------------------------------------------------------------

-------------------------
'运行结果:弹出对话框,内容为空.

哪位有空的帮帮忙啊,帮我看这是什么问题,要如何解决?谢谢了!