Çoklu silme için

Set rs = baglan.Execute("DELETE FROM Ajandam WHERE Kimlik=" & id)

yerine alttaki kodu deneyin.Listviewden seçim yapmalısınız.

Set rs = baglan.Execute("DELETE FROM Ajandam WHERE CStr(BaslamaZamani)= '" & CStr(ListView1.SelectedItem.ListSubItems(1)) & "' and  " & _



                                                  "CStr(BitisZamani)= '" & CStr(ListView1.SelectedItem.ListSubItems(2)) & "'")

---

Burda anlatmak istediğinizi anlayamadım.Örnek üzerinde anlatırsanız anlayabilirim yada listviewde sonuç olarak yada accesste sonuç olarak anlatabilirsiniz.