I know what this is caused by, but I don't know the solution, myself.

Here's the code that will raise the error:

Code:
Public Sub CheckVers()
Dim PatchVers As Recordset
Dim CurrentVers As Recordset
Dim db As Database

Set db = CurrentDb
Set PatchVers = db.OpenRecordset("tblVersionNumber")
Set CurrentVers = db.OpenRecordset("tblCurrentVersion")
Upon either of the Set commands w/OpenRecordset method the 2000 db will return a type mismatch.

I've checked DAO 3.60 referencing, and still get the error.