Hello,
I am looking for a good way to permanently sort a table in Access. The
way i have below works but i was wondering if there is a better and
faster way.
Kind regards,
Alex

'-------------------------------------------
Public Sub Sort()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset

rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.CursorLocation = adUseClient
rst2.CursorType = adOpenDynamic
rst2.LockType = adLockOptimistic
rst2.CursorLocation = adUseClient
Set cnn = CurrentProject.Connection
rst.Open "SELECT * FROM Table1", cnn, , , adCmdText
rst2.Open "SELECT *  FROM Table1", cnn, , , adCmdText

rst.Sort = " ISBNnumber ASC"
rst.MoveFirst
rst2.MoveFirst
While Not rst.EOF
   rst2!ISBNnumber = rst!ISBNnumber
   rst2!Time = rst!Time
   rst2!Name1 = rst!Name1
   rst2!Name2 = rst!Name2
   rst2!Author = rst!Author
   rst2!Subject = rst! Subject
   rst2.MoveNext
   rst.MoveNext
Wend

rst2.UpdateBatch
rst.Close
rst2.Close
cnn.Close
End Sub
'---------------------------------