Visual Basic para Aplicaciones - ayuda con listview

Buenos dias!!! necesito ayuda!! estoy haciendo una agenda y necesito hacer una busqueda por fecha y que me muestre en el listview todas las citas que esten guardadas con esa fecha, pero no se como hacerlo hago la busqueda y me aparece solo una cita por fecha aqui pongo un poco delcodigo que estoy utilizando

Private Sub cdbuscar1_Click()
Dim db As Database, rs As Recordset

Set db = OpenDatabase(App.Path & "\Base de datos.mdb")
Set rs = db.OpenRecordset("Citas", dbOpenTable)
rs.MoveFirst


If Txfecha1.Text = rs!Fecha Then

lvcita.ListItems.Add(, , rs!Fecha) = rs!Fecha
lvcita.ListItems.Item(1).ListSubItems.Add(, , rs!Hora) = rs!Hora
lvcita.ListItems.Item(1).ListSubItems.Add(, , rs!tecnico) = rs!tecnico
lvcita.ListItems.Item(1).ListSubItems.Add(, , rs!cliente) = rs!cliente
lvcita.ListItems.Item(1).ListSubItems.Add(, , rs!ciudad) = rs!ciudad
lvcita.ListItems.Item(1).ListSubItems.Add(, , rs!contacto) = rs!contacto
lvcita.ListItems.Item(1).ListSubItems.Add(, , rs!asunto) = rs!asunto
lvcita.ListItems.Item(1).ListSubItems.Add(, , rs!idcita) = rs!idcita
GoTo final
Else
rs.MoveNext

End If
MsgBox "Esa fecha no está registrada", vbInformation, "Buscar citas"
rs.Close

End Sub