VB 倒数数据库数据到 list 总是不能倒序导入

[新点燃]

如图所示，第一条内容时间10:24:30 最后一条10:24:33
我需要的效果是时间越新，越靠前（后导入的数据在前面，类似于手机的收件箱）
我用了按照时间倒序打开数据表，可是没用，求助啊

Private Function Inbox_Update()
    Dim tempString As String
    Dim tempKind As String
    Dim tempName As String
    Dim tempNumber As String
    List3.Clear
    
    rs_inbox.Open "select * from inbox order by time asc", conn, 2, 2
‘rs_inbox.Open "select * from inbox order by time desc", conn, 2, 2
    If rs_inbox.BOF = False Then
        rs_inbox.MoveFirst
        rs.Open "select * from NAME", conn, 2, 2
    
        While rs_inbox.EOF = False
            If IsNull(rs_inbox.Fields("message")) Then
                tempString = "空文本"
            Else
                tempString = rs_inbox.Fields("message")
            End If
            Select Case rs_inbox.Fields("kind")
            Case 0
                tempKind = "未知信息"
            Case 1
                tempKind = "SOS 位置"
            Case 2
                tempKind = "SOS 信息"
            Case 3
                tempKind = "上报位置"
            Case 4
                tempKind = "上报信息"
            End Select
            If IsNull(rs_inbox.Fields("name")) Then
                tempNumber = rs_inbox.Fields("number")
                rs.MoveFirst
                rs.Find "number= '" & tempNumber & "' "
                If rs.EOF Then
                    tempName = "未命名"
                Else
                    If IsNull(rs.Fields("name")) Then
                        tempName = "未命名"
                    Else
                        rs_inbox.Fields("name") = rs.Fields("name")
                    End If
                End If
            Else
                tempName = rs_inbox.Fields("name")
            End If
            If Len(tempName) < 4 Then tempName = tempName + "        "
           List3.AddItem tempKind + "  " + tempName + vbTab + "  " + tempString
           
           'If Len(tempString) < 5 Then tempString = tempString + "        "
            ''List5.AddItem tempString + vbTab + " " + rs.Fields("number").Value
           rs_inbox.MoveNext
        Wend
        rs.Close
    End If
    rs_inbox.Close
    UptadeInbox_Flag = 1
End Function

[of123]

试试：select * from inbox order by desc [time]

[新点燃]

引用 1 楼 of123的回复:

试试：select * from inbox order by desc [time]

试试：select * from inbox order by desc [time][/quote] 试试：select * from inbox order by desc [time][/quote] 谢谢1楼的指导，但是你那样有错误 反过来就对了

[新点燃]

rs_inbox.Open "select * from inbox order by [time] desc", conn, 2, 2