Help!
I have a fairly simple database, just for my personal use. It’s function is to replace my paper filing cabinets. The main table is “DocsT” table. Fields in that table include “DocLocation” . Using RRs techniques, I scan all my paper filing as jpeg images in a File Folder  named “Images” under the trusted folder holding the database. I give each jpeg a relevant short name and enter that name in another field  “DocName” and using Richard’s techniques a simple press of a “Button” concatenates that file name with the full file location and the file terminator “.jpeg” and HeyPresto the image appears in the main form “DocsF”
“DocsF”, apart from the Image and other stuff like the date and destruction date, I have mimicking my old filing cabinets. So I have two other tables “DrawerT” and  “FileT”. Fields in those tables hold the names, so “DrawerName” has only a few entries like Personal, Finance. Household, Businesses, and “FileName in the “FileT” table is quite a long list, one for each file obviously, like my Banks, Barclays, Nationwide, and Household files like Electricity, Water, Repairs etc etc.
I’ve used cascading Combo Boxes on “DocsF” to mark up each image, so for example filing a Barclays Bank Statement I can simply select “Finance” in the “DrawerCombo” which by cascading means I can only then choose “Barclays” from the “FileCombo”. I’ve chosen this example because they happen to have an ID number 1 in both the “DrawerT” and the “FileT”.
This all works really well.
My problem is that I would like a search box so that I can just enter “Barclays” (or of course perhaps even “Ba”), and at the press of a button filter the form or Do.Cmd OpenForm etc just opens all the records where “Barclays”  appears as “FileCombo” entry for each and every image record.
Using Copilot, I have an unbound text box to enter the search criteria “Barclays” or just “Ba”, and a button with the “OnClick” containing the following code, using a RecordSet as the method.

Details

Private Sub FindBtn_Click()
    'Declare Variable
        Dim db As DAO.Database
        Dim rst As DAO.Recordset
        Dim strSQL As String
            'Set the Current Database
        Set db = CurrentDb
    'Create SQL query to find matching records
        strSQL = "SELECT * from FileT WHERE FileName in (SELECT FileCombo from FileT)"
        'Open the Recordset
        Set rst = db.OpenRecordset(strSQL, dbOpenSnapshot)
    
    'Check if any records are found
        If rst.EOF Then
        MsgBox "NO Matching Records Found.", vbInformation
    Else
        MsgBox "Matching Records Found!", vbInformation
   'Optionally you can move through the records
        Do Until rst.EOF
            Debug.Print "Record Found: " & rst!FileName
        Loop
    End If
      'Close the recorset
        rst.Close
        Set rst = Nothing
        Set db = Nothing
End Sub
Copy

This currently produces an error at the line
Set rst = db.OpenRecordset(strSQL, dbOpenSnapshot)
Saying too few parameters. Expected 1
Any ideas?