Type Mismatch on OpenRecordset function

VB Code:

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'

???

just to tell you what Im trying to do, Im exporting excel data into Access using a macro