97 works, Type mismatch in 2000

Help!!, I am receiving a type mismatch error in access 2000. below is the code I always have utilized in access 97 with out issue. now in 2000 when it gets to the line Set rst = dbs.OpenRecordset.... I am receiving a Run time error 13, type mismatch. I donot understand why.

Can anyone help?

Sub LoadHolidays()
' This routine should be loaded at startup

Dim x As Integer
Dim dbs As Database
Dim rst As Recordset

Set dbs = CurrentDb

Set rst = dbs.OpenRecordset("select * from holidays where holidays;", dbOpenDynaset, dbSeeChanges)

rst.MoveLast

arrSize = rst.RecordCount
ReDim arrHolidays(arrSize) As Date

rst.MoveLast

x = 0
Do While Not rst.EOF
arrHolidays(x) = rst.Fields("Holidays")
rst.MoveNext
x = x + 1
Loop


End Sub

You'll need to qualify all your recordsets:

VB Code:

Dim rst As DAO.Recordset

...or remove the reference to ADO in the project references (I think it's added by default in Access 2K).

What service pack level are you runnning?

You should be at SP5.

i don't know if you shrunk down ur code for the post.. but that SQL statement doesn not look right... the where clause...

That ADO vers ADODB worked.

ummm aren't you using DAO?? not ADO?

yeah, I jsut cant make my fingers do what my mind is saying

Quote:

---

Originally posted by kleinma
ummm aren't you using DAO?? not ADO?

---

confusing much?!!?!? :eek:

i am surprised that there isn't ODA, AOD, or OAD with .NET or something