PRB: Filter Property Fails When Using Multiple Single Quotation Marks

MORE INFORMATION

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.