Access 2016 VB code

My OS is win 10 pro 64 bit and I have Office 365 and Access 2016 installed on my desktop.  I created a small password creator, which works very well.  But I am trying to implement a search function, and this does not seem to work.  I copied the code from a 2007 sample app.  
Basically,  I would open the Form: frmSearch.  Where there is a field "Select field to Search:", and in the field I would select the field of the table to  search criteria, eg: URL or site.  The field is a combo field with a drop down arrow, to allow me to select the field from the Table : tblMainPasswordTable.  I normally select the field URL or site.
In the "Search for" field, which is unbound field, I would type the search criteria, eg; Office.
And then select the option box " Any part of field" , and then hit the View Results button.
This would open the Form, frmPwd to display the selected criteria and display the results from the table : tblMainPasswordTable.  

But the code is not working, it does not display the correct record for the search criteria.  and at times it bombs at the line : Open Args
Attached is the visual basic source code of the app, and hope the Experts could please let me know where I goofed, as my experience in VB is only at the 2007 level. Thank u and Regards.
Search-code.txt