Sub filtre()
Dim secim As String
Dim secim2 As String
Dim alan As String

On Error Resume Next

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Database.accdb"

If ComboBox14.Value = "Başlama Zamanı" Then
alan = "BaslamaZamani"
ElseIf ComboBox14.Value = "Bitiş Zamanı" Then
alan = "BitisZamani"
ElseIf ComboBox14.Value = "Hatırlatma Zamanı" Then
alan = "HatirlatmaZamani"
End If

secim = Format(TextBox10.Value, "dd.mm.yyyy")
secim2 = Format(TextBox11.Value, "dd.mm.yyyy")

'..................Tarih Fitreleri.................................................
If ComboBox15.Value = "Eşittir" Then
rs.Open "select*from Ajandam WHERE int([" & alan & "]) =" & CDbl(CDate(secim)) & "", baglan, 1, 1
ElseIf ComboBox15.Value = "Arasında" Then
rs.Open "select*from Ajandam WHERE int([" & alan & "]) between " & CDbl(CDate(secim)) & " and " & CDbl(CDate(secim2)) & "", baglan, 1, 1

End If

With ListView1
    .ListItems.Clear

    If rs.RecordCount > 0 Then
    Do While Not rs.EOF
        .ListItems.Add , , rs(0).Value & ""
        For i = 1 To rs.Fields.Count - 1
            .ListItems(.ListItems.Count).ListSubItems.Add , , rs(i).Value & ""
        Next i
        rs.MoveNext
    Loop
    End If
End With
Set rs = Nothing
Set con = Nothing
End Sub