可以自己设置的 Set rstAuthors = New ADODB.Recordset rstAuthors.CursorLocation = adUseClient strSQLAuthors = "SELECT * FROM Authors" rstAuthors.Open strSQLAuthors, Cnxn, adOpenStatic, adLockReadOnly, adCmdText
' sort the recordset last name ascending rstAuthors.Sort = "au_lname ASC, au_fname ASC" '这里表示这2个字段升序排列 Debug.Print "Last Name Ascending:" Debug.Print "First Name Last Name" & vbCr
Set rstAuthors = New ADODB.Recordset
rstAuthors.CursorLocation = adUseClient
strSQLAuthors = "SELECT * FROM Authors"
rstAuthors.Open strSQLAuthors, Cnxn, adOpenStatic, adLockReadOnly, adCmdText
' sort the recordset last name ascending
rstAuthors.Sort = "au_lname ASC, au_fname ASC" '这里表示这2个字段升序排列
Debug.Print "Last Name Ascending:"
Debug.Print "First Name Last Name" & vbCr