@feraz hocam between olayında tarihleri textlere yazınca filtreleme yapıyor, ancak yazdığım tarihi silerken Excel donup kalıyor.

Nerde yanlış yapıyor olabilirim.

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