Imposible de abrir un recordset
Al intentar abrir un recordset me da el error "tipos imposibles", me da el error al hacer el openrecordset
¿Alguna idea?
Dim BaseDatos As Database
Dim QTemp As Recordset
Dim ELSQL As String
Set BaseDatos = CurrentDb()
ELSQL = "SELECT NUMERO FROM PRESUPUESTOS"
Set QTemp = BaseDatos.OpenRecordset(ELSQL, dbOpenDynaset)
Gracias por vuestra ayuda
¿Alguna idea?
Dim BaseDatos As Database
Dim QTemp As Recordset
Dim ELSQL As String
Set BaseDatos = CurrentDb()
ELSQL = "SELECT NUMERO FROM PRESUPUESTOS"
Set QTemp = BaseDatos.OpenRecordset(ELSQL, dbOpenDynaset)
Gracias por vuestra ayuda
Comprueba en las referencias del proyecto que :
#Microsoft DAO 3.51 Object Library
o la versión que sea, está incluida antes que
#Microsoft ActiveX Data Objects 2.0 Library
#Microsoft DAO 3.51 Object Library
o la versión que sea, está incluida antes que
#Microsoft ActiveX Data Objects 2.0 Library
