在ADODB SQL查询中，子查询的ORDER BY子句通常不起作用。这是因为ORDER BY在子查询中仅适用于子查询本身，而不会影响主查询的结果。

为了解决这个问题，可以通过将子查询的结果存储在临时表中，然后在主查询中使用ORDER BY子句来对临时表进行排序。

以下是一个示例代码：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String

' 连接到数据库
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb;"

' 创建临时表来存储子查询的结果
strSQL = "CREATE TABLE TempTable (ID INT, Name TEXT, Age INT)"
conn.Execute strSQL

' 将子查询的结果插入到临时表中
strSQL = "INSERT INTO TempTable (ID, Name, Age) SELECT ID, Name, Age FROM YourTable WHERE Age > 30"
conn.Execute strSQL

' 使用ORDER BY对临时表进行排序
strSQL = "SELECT * FROM TempTable ORDER BY Age DESC"
rs.Open strSQL, conn

' 处理查询结果
Do Until rs.EOF
    ' 处理记录
    ' ...

    rs.MoveNext
Loop

' 关闭记录集和连接
rs.Close
conn.Close

' 删除临时表
strSQL = "DROP TABLE TempTable"
conn.Execute strSQL

在上面的示例中，我们首先创建一个临时表TempTable，然后将子查询的结果插入到临时表中。接下来，我们使用ORDER BY子句对临时表进行排序，并执行主查询来获取排序后的结果。

请注意，在使用临时表之后，我们需要记得在查询结束后删除临时表，以避免对数据库造成不必要的负担。

希望这个解决方法对您有所帮助！