สอบถามปัญหาโค้ด Error จากฟอร์มค้นหาข้อมูล (Compile Error)

Option Compare Database
Option Explicit

Private Sub btnClear_Click()
    Dim intIndex As Integer
    
    ' Clear all search items
    Me.txtE1 = ""
    Me.txtSlot = ""
    Me.txtNodeName = ""
    Me.txtDestination = ""
    Me.txtCustomer = ""
    Me.txtSO = ""
    Me.cmbBitRate = 0
    Me.cmbNetwork = 0
    Me.cmbStatus = 0
    
End Sub

Private Sub btnSearch_Click()
    
     ' Update the record source
    Me.subfrmSearch.Form.RecordSource = "SELECT * FROM qryEquipment " & BuildFilter
    
    ' Requery the subform
    Me.subfrmSearch.Requery
End Sub




Private Sub Form_Load()
    
    ' Clear the search form
    btnClear_Click
    
End Sub

Private Function BuildFilter() As Variant
    Dim varWhere As Variant
    Dim varItem As Variant
    Dim intIndex As Integer

    varWhere = Null  ' Main filter
      
    ' Check for LIKE Customer
    If Me.txtCustomer > "" Then
        varWhere = varWhere & "[Customer] LIKE """ & Me.txtCustomer & "*"" AND "
    End If
    
    ' Check for LIKE Last Destination
    If Me.txtDestination > "" Then
        varWhere = varWhere & "[Destination] LIKE """ & Me.txtDestination & "*"" AND "
    End If
    
     ' Check for LIKE Service Order
    If Me.txtSO > "" Then
        varWhere = varWhere & "[ServiceOrder] LIKE """ & Me.txtSO & "*"" AND "
    End If
    
    ' Check for LIKE Node Name
    If Me.txtNodeName > "" Then
        varWhere = varWhere & "[NodeName] LIKE """ & Me.txtNodeName & "*"" AND "
    End If
    
    ' Check for E1
    If Me.txtE1 > "" Then
        varWhere = varWhere & "[E1] LIKE """ & Me.txtE1 & "*""" AND "
    End If
    
    ' Check for Slot
    If Me.txtSlot > "" Then
        varWhere = varWhere & "[Slot] LIKE """ & Me.txtSlot & "*"""  AND "
    End If
    
    ' Check for Bit Rate
    If Me.cmbBitRate > 0 Then
        varWhere = varWhere & "[BitRate] = " & Me.cmbBitRate & " AND "
    End If
    
    ' Check for Network
    If Me.cmbNetwork > 0 Then
        varWhere = varWhere & "[Network] = " & Me.cmbNetwork & " AND "
    End If
    
    ' Check for Status
    If Me.cmbStatus > 0 Then
        varWhere = varWhere & "[Status] = " & Me.cmbStatus & " AND "
    End If
    
    
    
    ' Check if there is a filter to return...
    If IsNull(varWhere) Then
        varWhere = ""
    Else
        varWhere = "WHERE " & varWhere
        
        ' strip off last "AND" in the filter
        If Right(varWhere, 5) = " AND " Then
            varWhere = Left(varWhere, Len(varWhere) - 5)
        End If
    End If
    
    BuildFilter = varWhere
    
End Function

 Me.subfrmSearch.Form.RecordSource = "SELECT * FROM qryEquipment " & BuildFilter