Recordset.Sort

[jesus4u]

How useful is this ? Recordset.Sort

[crispin]

If it's ADO j4u then heres an example...if you didn't know about it already that is...

'BeginSortVB
Public Sub SortX()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

rst.CursorLocation = adUseClient
cnn.Open "DSN=Pubs;Provider=MSDASQL;uid=sa;pwd=;"
rst.Open "SELECT * FROM Authors", cnn, _
         adOpenStatic, adLockReadOnly, adCmdText
SortXprint "Initial Order", rst

rst.Sort = "au_lname ASC, au_fname ASC"
SortXprint "Last Name Ascending", rst

rst.Sort = "au_lname DESC, au_fname ASC"
SortXprint "Last Name Descending", rst

rst.Close
cnn.Close
End Sub
'EndSortVB

[jesus4u]

thanks I was using it today and I was just thinking WOW this can be useful in some situations!