vb代码求助！ - VB / 基础类

Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\member.mdb"
Set rs = New ADODB.Recordset
rs.Open "select * from queryattendance1 where 到寝室日期时间 between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "# ", cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "没有符合条件的查询", vbExclamation, "提示"
Else
 For i = 1 To rs.RecordCount
  Set Fliv = ListView1.ListItems.Add()
  Fliv.Text = rs.Fields("学号")
  Fliv.SubItems(1) = rs.Fields("姓名")
  rs.MoveNext
  Next i
End If
End Sub
点击一次后，再点击一次listview控件显示两次数据 重复了...
怎么使点击n次 都只显示一次数据

---

...我咋没想到...我试试去

---

简单有效...就是想不起来...谢了