Access 2000 y OpenDatabase

Tengo un problema que seguramente debe tener una soluicon muy simple pero
que no la conozco

estoy trabajando con este codigo para abrir una base acces

Dim db As Database
Dim qdef As QueryDef
Dim rs As Recordset
Dim dbname As String
Dim i As Integer

' Open the database.
dbname = "c:\data.mdb"
Set db = OpenDatabase(dbname)

' Get the records.
Set qdef = db.CreateQueryDef("", _
"SELECT Year, Value FROM YearlyValues")
Set rs = qdef.OpenRecordset(dbOpenSnapshot)

el codigo funciona bien con access 97 pero cuando trato de abrir
una 2000 me tira un error en la linea Set db = OpenDatabase(dbname)

que me falta instalar o si alguien tiene un ejemplo de como acceder a una
tabla de acces 2000 seria bueno que me lo mandaran

desde ya muchas gracias