Access - error tipo.Urgente

Hola foro sigo con el eroor de tipo en un código que he escrito.Alguien me puedo decir donde puedo encontrar ejemplos de código en access 2000, ya que este cambia con respecto a access97 creo.¿Me faltara algo de instalar?, me da error de tipo en
set t1= db.openrecordset("auxli", dbopendynaset)

para utilizar DAO tenes que tenerlo seleccionado en las referencias de Visual BAsic, sino lo haces te va a seguir dando error

he seleccionado microsoft DAO 3.6 object library.¿Que mas necesito?.gracias

En A2000 el motor de busquedad el ADO por default, tu necesitaras instalar la libreria de DAO 3.6 a traves del menu herramientas/referencias. Access buscara de arriba abajo, el primer motor de busquedad, tu debes poner el DAO primero que el ADO. (ahora si no trabajas con ADO mejor desactivalo),

No tengo ningun ADO activado.Me puedes decir que que es lo que tengo que tener marcado en herramientas/referencia o ddonde puedo encoctrar algo sobre el tema

Entra a un mod cualquiera, selecc Herramientas,referencias, y mira si tienes activado el DAO 3.6library, y que tengas desact el ADO
eso es todo
suerte

Esta probado hace bastante es mas te puede servir porque crea una contador automatico, suerte.
'Se abre un nuevo registro'
DoCmd.GoToRecord , , acNewRec
'Aca van las variables de base de datos y registros'
Dim Db As Database
Dim Rs As Recordset
Dim Temp
'Se establece la referencia a la base de datos'
Set Db = DBEngine.OpenDatabase("C:\Indesgar\DIAGRAMAS.mdb")
'Se establece la referencia la conjunto de registros'
Set Rs = Db.OpenRecordset("DIAGRAMAS", dbOpenDynaset)
'Se establece la variable a 0'
Temp = 0
'Se establece el bucle'
Do Until Rs.EOF
If Val(Rs![Ruta Nº:]) > Temp Then
Temp = Val(Rs![Ruta Nº:])
End If
Rs.MoveNext
Loop
'Se cierran la referencias'
Rs.Close
Db.Close