You receive a "Type mismatch" error when you run the OpenRecordset method

MORE INFORMATION

Steps to reproduce the behavior

1. Start Visual Studio. The New Project dialog box appears.
2. Click Open. The Form1 form appears.
3. Right-click the Form1 form, and then click View Code. The Project1 - Form1 (Code) window appears.
4. Paste the following code in the Project1 code page:

   Dim dbs AS Database
   Dim rs AS Recordset  ' When you press the spacebar after "AS," the
                              ' list box includes multiple Recordset entries.
                              ' Pick any Recordset item, or type "Recordset."
   Private Sub Form_Load()
   Set dbs=OpenDatabase(dbname)
   Set rs=dbs.OpenRecordset(source)  ' The error occurs when this line
                                           ' of code executes.
   End Sub
   

5. On the Project menu, click References. The References - Project1 dialog box appears.
6. Click Microsoft DAO 3.x Object Library, click Microsoft ActiveX Data Objects 2.x Library, and then click OK.
   
   Note Make sure that the ADO library has the higher priority in the References dialog box list above the DAO library.
7. On the Run menu, click Start to run the program. You may receive the error message that is mentioned in the "Symptoms" section.