请教一个关于报表的问题


Private Sub addGZXX() '添加lvwZGXX列表过程Me.lvwGZXX.ListItems.ClearSQL = "select 楼幢号,单元号,楼层号,房号,面积,单价,总价,房源状态 from HousingResources"
Call OpenConn
i = 1
    rs.Open SQL, cn, 1, 1
    On Error Resume Next
    Do While Not rs.EOF
        Set addLVW = Me.lvwGZXX.ListItems.Add(, , i, , 5)
            addLVW.SubItems(1) = rs!楼幢号
            addLVW.SubItems(2) = rs!单元号
            addLVW.SubItems(3) = rs!楼层号
            addLVW.SubItems(4) = rs!房号
            addLVW.SubItems(5) = rs!面积
            addLVW.SubItems(6) = rs!单价
            addLVW.SubItems(7) = rs!总价
            addLVW.SubItems(8) = rs!房源状态
            rs.MoveNext
            i = i + 1
    Loop
    Me.labCOUNT.Caption = "符合条件记录： " & rs.RecordCount & " 条"
Call CloseConn
End Sub我们这个报表需要做一个筛选，就是只列出房源状态为“已售”的记录集，我刚学VB，想请教一下各位老师，这个代码该怎样改啊