Using checkboxes with a search box

[tbutler]

Private Sub btnSearch_Click()
    Dim SQL As String
    Dim Avionics As Integer
    Dim Powerplant As Integer
    Dim Shops As Integer
    Dim Structures As Integer
    Dim Systems As Integer
 
If IsNull(Me.txtOrderSearch) Or Me.txtOrderSearch = "" Then
    MsgBox "Please Type in your search keyword.", vbOKOnly, "Keyword Needed"
Else
    If Me.chkAvionics = True Then
        Avionics = 1
    End If
    If Me.chkPowerplant = True Then
        Powerplant = 2
    End If
    If Me.chkShops = True Then
        Shops = 3
    If Me.chkStructures = True Then
        Structures = 4
    If Me.chkSystems = True Then
        Systems = 5
    End If
 
    SQL = "SELECT Overdue_Order_Responses_Archive.RO_MPN, Overdue_Order_Responses_Archive.RO_SERIAL_NR, Overdue_Order_Responses_Archive.[Vendor Name], Overdue_Order_Responses_Archive.[Commodity Final], Overdue_Order_Responses_Archive.[Estimated Ship Date (Date Only MM/DD/YYYY)], Overdue_Order_Responses_Archive.Comments, Overdue_Order_Responses_Archive.[Date Added], Overdue_Order_Responses_Archive.RO_NR " _
        & "FROM Overdue_Order_Responses_Archive " _
        & "WHERE [RO_MPN] = '" & Me.txtOrderSearch & "' " _
        & " OR [Comments] LIKE '*" & Me.txtOrderSearch & "*' " _
        & " OR [Commodity Final] = " & Avionics & "" _
        & " OR [Commodity Final] = " & Powerplant & "" _
        & " OR [Commodity Final] = " & Shops & "" _
        & " OR [Commodity Final] = " & Structures & "" _
        & " OR [Commodity Final] = " & Systems & "" _
        & "ORDER BY Overdue_Order_Responses_Archive.RO_SERIAL_NR DESC , Overdue_Order_Responses_Archive.[Date Added] DESC "
 
    Me.subRptAnalysis.Report.RecordSource = SQL
    Me.subRptAnalysis.Report.Requery
 
End If
End Sub
 

Above is my code, but I keep getting the error "Compile error: Block If without End If" Please help

[SioSio]

Two "End IF" statements are missing for the "IF" statement. What is missing seems to be the "End If" for the "IF" on lines 18 and 20.