PRB: Filter Property Fails When Using Multiple Single Quotation Marks

When you filter a recordset for a character field that contains more than one single quotation mark, for instance CompanyName = O'Riley's Pub, one of the following error messages is displayed: -or-

For additional information about workarounds for this issue, click the article number below to view the article in the Microsoft Knowledge Base:

Steps to Reproduce

1. In Microsoft Visual Basic 5.0 or 6.0, open a new Standard EXE project. Form1 is created by default.
2. On the Project menu, select References, and add a reference to the Microsoft ActiveX Data Objects 2.x Library.
3. Place the following code in the Form1 Code module:

   Dim rs As New ADODB.Recordset
   Dim cn As New ADODB.Connection
   
   With cn
   .ConnectionString = "Provider=SqlOledb;Data Source=<server_name>;Initial Catalog=Northwind;User id=<uid>;Password=<pwd>;"
   .Open
   End With
   
   cn.Execute "update employees set Lastname = 'Davolio''' where EmployeeID = 1"
   
   With rs
   .CursorLocation = adUseClient
   .LockType = adLockBatchOptimistic
   .CursorType = adOpenStatic
   .ActiveConnection = cn
   .Open "select * from employees"
   End With
   
   rs.Filter = "Lastname = 'Davolio'''"
   Debug.Print rs.RecordCount
   Debug.Print rs(1)
   
   cn.Execute "update employees set Lastname = 'O''Davolio''' where Employeeid = 1"
   
   rs.requery
   rs.Filter = "author = 'O''Davolio'''" 'Error Occurs Here
   Debug.Print rs.RecordCount
   Debug.Print rs(1)
   					

4. Run the project. You receive the following error message:
   Run-time Error '3001' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
   
   or, under MDAC 2.6, you receive the following error message:
   Run-time Error '-2147024809 (80070057)': The parameter is incorrect.