I am trying to to read from an Access database using the following code:

Code:
Dim Dbs As Database
Dim Rst As Recordset

'Open Database
Set Dbs = OpenDatabase(App.Path & "\DB.mdb")
    
'Get list of all in table
Set Rst = Dbs.OpenRecordset("TABLE1")
But i am getting an Error - Runtime Error 13 Type Missmatch when i try to open a record set.

i have used this method before with no problems, the only difference now is i am using Access2000 could this be the problem?

do i need a new DAO control (I am using DAO3.6)