Maybe this will get you started. It only checks the Bit # field. I don't know what the others relate to. Assign this to the search button.
Private Sub CommandButton1_Click()

Dim rData As Range

Application.ScreenUpdating = False

With ActiveSheet
    .AutoFilterMode = False
    If Me.TextBox3.Value <> "" Then
        .Range("A3").AutoFilter Field:=4, Criteria1:=Me.TextBox3.Value
        With .AutoFilter.Range
            On Error Resume Next
            Set rData = .SpecialCells(xlCellTypeVisible)
            On Error GoTo 0
            If Not rData Is Nothing Then
                Sheets("Display").UsedRange.Clear
                rData.Copy Sheets("Display").Range("A1")
            End If
        End With
        .AutoFilterMode = False
    End If
End With

Unload Search
Sheets("Display").Activate

Application.ScreenUpdating = True

End Sub