我无法排序y值！

这里是一个例子：

N

我添加了sort.val =“ desc”来调整图形中y-值的顺序：

M

结果为错误

Public Function AuditChanges(RecordID As String,Useraction As String)
On Error GoTo auditerr

Dim db As Database
Dim rst As Recordset
Dim clt As Control
Dim userloging As String

Set db = CurrentDb
Set rst = db.OpenRecordset("Select *from audit_tbl",adopendynamic)

UserLogin = Environ("username")
Select Case Useraction
    Case "new"
        With rst
            .AddNew
            !\[DateTime\] = Now()
            !\[username\] = UserLogin
            !\[FormName\] = Screen.activeForm.Name
            !\[action\] = Useraction
            !\[RecordID\] = Screen.activeForm.Controls(RecordID).Value
            .Update

        End With

    Case "Delete"
        With rst
            .AddNew
            !\[DateTime\] = Now()
            !\[username\] = UserLogin
            !\[FormName\] = Screen.activeForm.Name
            !\[action\] = Useraction
            !\[RecordID\] = Screen.activeForm.Controls(RecordID).Value
            .Update
         End With

    Case "edit"
        For Each clt In Screen.activeForm.Controls
            If (clt.ControlType = actextBox) _
                Or (clt.ControlType = accomboBox) Then
                If Nz(clt.Value) <> Nz(clt.OldValue) Then
                    With rst
                        .AddNew
                        !\[DateTime\] = Now()
                        !\[username\] = UserLogin
                        !\[FormName\] = Screen.activeForm.Name
                        !\[action\] = Useraction
                        !\[RecordID\] = Screen.activeForm.Controls(RecordID).Value
                        !\[FieldName\] = clt.ControlSource
                        !\[OldValue\] = clt.Value
                        .Update
                    End With
                End If
          End If
    Next clt
End Select
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing

auditerr:
    MsgBox Err.Number & " : " & Err.Description,vbCritical,"Error"
    Exit Function

End Function

我该怎么办？