Type Mismatch on OpenRecordset function

[udit99]

Dim db As Database
Dim rs As Recordset
Dim ws As Workspace
 
    DBEngine.SystemDB = "C:\Documents and Settings\System.mdw"
    Set ws = CreateWorkspace("NewWS", "user1", "", dbUseJet)
    Set db = ws.OpenDatabase("C:\Documents and Settings\testimport.mdb")
    Set rs = db.OpenRecordset("EquipAll")

This returns me a Runtime error '13': Type Mismatch
even though the return type of the OpenRecordSet function is 'Recordset' and the rs object is of type 'Recordset'

???