'实现排序方式和排序关键字的可选
Private Sub cmd_排序_Click()
   Dim opt_order As String
'将选项按钮的值保存在字符串变量opt_order中
   If fra_排序 = 1 Then
       opt_order = ""
   Else
       opt_order = " desc"
   End If
'根据选择关键字和排序方式排序
   Me.OrderBy = Me.cmb_关键字 & opt_order
   Me.OrderByOn = True
End Sub