Listbox Da Türkçe Karakterler En Sonda Sıralanıyor

Çok teşekkürler arkadaşlar

Kod:
SELECT CStr([isim]) AS ismi FROM tListedenAl GROUP BY CStr([isim]) ORDER BY CStr([isim]);

şu şekilde yapınca düzgün sıraladı

çok uzun zaman geçmiş ama çözüm çözümdür)
rs.CursorLocation = 3 '|<--- "sort" özelliğinin çalışabilmesi için eklenmesi gereken özellik

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

1 2 3 4 5 6 7 8 9 10 11

Listbox Da Türkçe Karakterler En Sonda Sıralanıyor

accessman

berduş