要解决“ADODB RecordSet中的排序函数不正确工作”的问题，可以尝试以下解决方法：

1. 确保正确的排序字段：首先，确保正在使用正确的字段进行排序。检查字段名称是否正确拼写，并确认字段存在于RecordSet中。

2. 检查排序顺序：ADODB RecordSet的排序函数（例如Sort和SortOrder）可以指定排序的顺序。确保正确设置了排序顺序。常见的排序顺序包括升序（Ascending）和降序（Descending）。确保选择了正确的排序顺序。

3. 检查字段数据类型：如果排序的字段是字符串类型，则应该使用适当的方法进行排序，以避免排序不正确。对于字符串类型的字段，可以使用ADODB.RecordSet对象的Sort方法，并将排序字段设置为字符串类型。

以下是一个示例代码，演示如何正确使用ADODB RecordSet进行排序：

Dim conn As ADODB.Connection
Dim rs As ADODB.RecordSet

Set conn = New ADODB.Connection
conn.ConnectionString = "your_connection_string"
conn.Open

Set rs = New ADODB.RecordSet
rs.ActiveConnection = conn
rs.Source = "SELECT * FROM your_table"
rs.Open

' 按字段名称进行升序排序
rs.Sort = "your_field ASC"

' 遍历并打印排序后的记录
rs.MoveFirst
Do Until rs.EOF
    Debug.Print rs.Fields("your_field").Value
    rs.MoveNext
Loop

rs.Close
conn.Close

Set rs = Nothing
Set conn = Nothing

请根据实际情况修改上述代码中的连接字符串，表名和字段名称。然后，使用适当的排序顺序和字段名称进行测试，以确保排序功能正常工作。