Sorting issue when filtering

[DJRhino1175]

Private Sub ApplyFilter_Click()
 
On Error GoTo ErrorHandler
 
    Dim strFilter As String
 
    strFilter = ""
    If Not IsNull(Me.cmbSearchDate) Then
        strFilter = _
            " AND [LineDate] = " & _
                "#" & Format(Me.cmbSearchDate, "mm-dd-yyyy") & "#"
    End If
 
    If Not IsNull(Me.CmbLineSearch) Then
        strFilter = _
            strFilter & _
                " AND [LineNo] = " & _
                    Me.CmbLineSearch
    End If
 
    If Not IsNull(Me.cmbShiftSearch) Then
        strFilter = _
            strFilter & _
                " AND [Shift] = " & _
                     Me.cmbShiftSearch
    End If
 
    Me.OrderByOn = True
    Me.OrderBy = "[LineNO]"
 
    Debug.Print Mid(strFilter, 6)
 
    Debug.Print Me.OrderBy = "[LineNO]"
 
    With Me.Form
        .Filter = Mid(strFilter, 6)
        .FilterOn = (Not strFilter = "")
 
    End With
 
ErrorHandler:
   ' Insert code to handle the error here
   Resume Next
 
End Sub

It doesn't through any kind of error but it doesn't sort the field I want. It Seems to sort by the forms PK.

Is there something I have entered wrong? Do I need to take the sort out of the query? Do I need to set focus to that field first?

[DJRhino1175]

I figured it out, it should have been:

 Me.OrderByOn = True
    Me.OrderBy = "[LineNOID]"