BUG: Pass Database Object to 16-Bit OLE Server Causes 80010104

Steps to Reproduce Behavior

1. Create a minimal OLE server and a client that accesses the OLE server. (Step-by-step instructions for this procedure are found in the article [Q129801] referenced above and assume a client and server created from this article. However, they can be implemented in any client and server to see the behavior described in this article.) Add this code to the class module in the OLE server project:

         Public Sub PassDB(MyDB as Database)
         End Sub
   						

2. On the Run menu, choose Start or press F5 to run the server application. In the client application, add a reference to the running OLE server.
3. Modify the Form_Click event of Form1 in the client project to contain the following code:

         Public Sub Form_Click()
            Dim x As Project1.Class1
            Dim db As Database
            Set x = New Project1.Class1
            Set db = OpenDatabase("Biblio.mdb")
            x.PassDB db
         End Sub
   						

4. On the Run menu, choose Start or press F5 to run the client application. Click on the form. The client program will raise the error mentioned above on the line calling the PassDB method of the OLE server. If the server is stopped and the type of MyDB is changed from Database to Object, the client code will work correctly.