97 works, Type mismatch in 2000

[swoozie]

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

[PilgrimPete]

You'll need to qualify all your recordsets:

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).

[Hack]

What service pack level are you runnning?

You should be at SP5.

[kleinma]

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

[swoozie]

That ADO vers ADODB worked.

[kleinma]

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

[swoozie]

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

[darre1]

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

confusing much?!!?!?

[kleinma]

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