Ayuda please - Error 13: type mismatch - ado

[jcabezas]

Hola estoy haciendo un programa en visual basic con access y me arroja en error 13, he visto varios manuales, pero aún no se que pasa, el codigo es el siguiente:

Dim BDD As Database
Dim consulta As String
Dim tbl As Recordset

Set BDD = OpenDatabase("ruta")
consulta = "SELECT * FROM cliente"
Set tbl = BDD.OpenRecordset(consulta) ----> error*******

que será??????

[GeoAvila]

la verdad yo lo hago de una manera distinta..

Dim BDD As conexion
Dim consulta As String
Dim tbl As Recordset

Set BDD = new conexion
Set tbl = new Recordset
BDD.open = DriverYRuta
consulta = "SELECT * FROM cliente"
tbl.open consulta,BDD,openstatic, adOpenDynamic, adLockOptimistic

de esta manera lo hago yo..

nos vemos..

[jcabezas]

Los drivers te refieres a "microsoft jet...."???