Sub xSıraliVeri_TR_Sirali()

  Dim con As Object, rs As Object

    

    Set con = CreateObject("ADODB.Connection")

    Set rs = CreateObject("ADODB.Recordset")

    

    con.Open "DRIVER=SQLite3 ODBC Driver;Database=" & ThisWorkbook.Path & "\deneme.db;" 'Locale Identifier=1055;

    

    strSQL = "SELECT baslik from tblDeneme order by baslik" ' COLLATE NOCASE" 'Kücük büyük harf

    rs.CursorLocation = 3     '|<---"sort" özelliğinin çalışabilmesi için eklenmesi gereken özellik

    rs.Open strSQL, con, 1, 3

    rs.Sort = "baslik"        '|<---Türkçe sıralama için

    With Sheets("Sayfa2")

        .Range("E:E").ClearContents

        .Range("e1").CopyFromRecordset rs

    End With

    rs.Close

    con.Close

    Set rs = Nothing: Set con = Nothing

End Sub