sortering i listview

Hvordan sorter man i listview.
har prøvet at vælge "sorted" key =0 men den sorter godt nok colonne 1 , men der manger masse data i de andre colonner.
kører jeg ikke sorteret er alle dataerne der.

her er koden jeg læser det ind med
Private Sub Form_Load()
ListView1.ListItems.Clear

Set Myconn = CreateObject("ADODB.Connection")
Myconn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ= " & App.Path & "\debitor.mdb"
On Error Resume Next
SQL = "Select * FROM deb"
Set rs = Myconn.Execute(SQL)
  Do While Not rs.EOF
  ListView1.ListItems.Add (i + 1), , rs("Navn")
      ListView1.ListItems(i + 1).SubItems(1) = rs("Adr")
        ListView1.ListItems(i + 1).SubItems(2) = rs("adr2")
        ListView1.ListItems(i + 1).SubItems(3) = rs("postnr")
        ListView1.ListItems(i + 1).SubItems(4) = rs("by")
        ListView1.ListItems(i + 1).SubItems(5) = rs("tlf")

 
rs.movenext
Loop
Myconn.Close

End Sub

håber i kan hjælpe.

MVH
Force_Master