Sort Data by Double Clicking a Control

Private Sub CUSTNAME_Label_DblClick(Cancel As Integer)
If Me.OrderBy = "CUSTNAME DESC" Then
Me.OrderBy = "CUSTNAME"
Me.OrderByOn = True
Else
Me.OrderBy = "CUSTNAME DESC"
Me.OrderByOn = True
End If
End Sub