如何根据组合框的字段名对列表框的内容进行排序？

amika

表1有两个字段，[编号]、[名称]，在窗体上有一个列表框显示这个表内容，再建一个组合下拉框，内容是表1的字段名。现在想建一个按钮，能够实现当组合框选择[编号]时，按按钮使列表框根据[编号]排序，选择[名称]时，列表框的内容按名称排序，请问这个按钮代码怎么写？

wsylqy

Me.OrderByOn = True
    If list = "编号" Then
    Me.OrderBy = list
    ElseIf list = "名称" Then
    Me.OrderBy = list
    End If