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