数据库问题

VB code

 Do While Not rs.EOF
                    rs.Fields() '----Property access must assign to the property or use its value. ERROR
                    '----Fields("cardno")
                    rs.MoveNext()
                    strSQL2 = "Select cardno, jine from daoruwenjian1 where cardno=rs(cardno)"
                    QueryData(strSQL2)
                    rs2.RecordCount()'----Property access must assign to the property or use its value. ERROR

我只截取一段代码,求达人解惑，本人对VB不熟悉

2个注解就是ERROR处
Property access must assign to the property or use its value. ERROR
 '----Fields("cardno") 那个里面有值，我没写上去

Do While Not rs.EOF
  msgbox rs.Fields("cardno")
  rs.MoveNext()
  strSQL2 = "Select cardno, jine from daoruwenjian1 where cardno='" & rs("cardno") & "'"
  QueryData(strSQL2)
  msgbox rs2.RecordCount

问题在于不过是个error