open recordset gives type mismatch

[James]

1 Dim db As Database
2 Set db = OpenDatabase("c:\videoStore\settings.mdb")
3 Dim rs As Recordset
4 Set rs = db.OpenRecordset("defaults", dbOpenTable)
5 rs.MoveFirst
6 userType = rs.Fields(0)
7 storeNum = rs.Fields(1)

I'm pretty adept with VB6 but have stumbled when applying my knowledge to
Access 2003.

Line 4 gives me a 13 - type mismatch. The db exists and so does the
"defaults" table. Changing "defaults" to "anything" gives 3011 - Jet
database could not find the object 'defaults.' This shows me it can and does
find the correct table but I am stumped as to why the error occurs.

Help!

Cheers,
James

[James]

> 4 Set rs = db.OpenRecordset("defaults", dbOpenTable)

Changing "defaults" to "anything" gives 3011 - Jet database could not find
the object 'defaults'

Correction - "Jet database could not find the object 'anything'

It must be late....

[RoyVidar]

James wrote in message <CZ*******************@newsfe2-gui.ntli.net> :

1 Dim db As Database
2 Set db = OpenDatabase("c:\videoStore\settings.mdb")
3 Dim rs As Recordset
4 Set rs = db.OpenRecordset("defaults", dbOpenTable)
5 rs.MoveFirst
6 userType = rs.Fields(0)
7 storeNum = rs.Fields(1)

I'm pretty adept with VB6 but have stumbled when applying my knowledge to
Access 2003.

Line 4 gives me a 13 - type mismatch. The db exists and so does the
"defaults" table. Changing "defaults" to "anything" gives 3011 - Jet database
could not find the object 'defaults.' This shows me it can and does find the
correct table but I am stumped as to why the error occurs.

Help!

Cheers,
James

Try explicit declaration

Dim rs As DAO.Recordset

--
Roy-Vidar

[James]

Try explicit declaration

Dim rs As DAO.Recordset

--
Roy-Vidar

Yes, that's got it. Thankyou!