Visual Basic - No puedo guardar en una bd

Private Sub Guardar(contador, Tiempo)

Dim db As Database
Dim rs As Recordset

Set db = OpenDatabase("e:\Gescar\Gescar.mdb")

Set rs = db.OpenRecordset("SELECT * FROM Tiempos")

rs.AddNew
rs("Tiempo") = Tiempo
rs("Paso") = contador

rs.Update
rs.Close
db.Close

Desarrollo.Refresh
Call VerFinalLista


End Sub

Cuando ejecuto el codigo anterior me da un error en la linea " Set rs = db.OpenRecordset("SELECT * FROM Tiempos") " y "me dice error 13 en tiempo de ejecucion, no coincidenlos tipos pero no se que es lo que esta pasando"

Dede ya muchas gracias

Parece que el problema es debido a las referencias, ¿Que referencias tienes cargadas en tu proyecto?, y ¿en que orden?

Primero que nada gracias por tu tiempo y disculpa la demora.
Estas son las referencias y en este orden estan:

Visual Basic for Aplication
Visual Basic runtime objects and procedures
Visual Basic objects and procedures
OLE Automation
Microsoft ActiveX Data Object 2.0 Library
Microsoft Data Binding Collection
Microsoft DAO 3.51 Object Library
Microsoft Data Formating Object Library 6.0 (SP4)
Microsoft Connecttion Designer Instance 1.0
Microsoft Data Remote Object 2.0
Microsoft DTC Framework
Microsoft Agent Control 2.0

Bueno espero te sirva y puedas ayudarme con mi problema
Desde ya muchas gracias.

Urgente necesito ayuda con este problema....

prueba con el Microsoft DAO 3.51 recordset Object Library
esta arriba del dao objet library

El problema está en que como la referencia A los ActiveX data object 2.0 esta antes que la referencia DAO 3.51 cuando declaras la variable rs esta se crea de tipo ADODB.Recordset y la función OpenRecordset devuelve un objeto de tipo DAO.Recordset, y los tipos no coinciden.

Prueva declarando rs de la siguiente forma:

dim rs as DAO.Recordset