No coinciden los tipos al ajacutar OpenRecordset

Carlos,

creo que estás mezclando DAO y ADO. En ADO no se usa el objeto Database sino
Connection. Si la necesitas en la ayuda está bastante bien documentado.

Si necesitas algo concreto quizá pueda ayudarte.

Saludos,

Valentín
************************************************
"Carlos" escribió en el mensaje
news:285301c47081$f480f280$
Hola.
Tengo el siguiente código:

Dim NoProy As String
Dim wrkODBC As Workspace
Dim dbsHASP As Database
Dim strSQL As String
Dim rcsDatos As Recordset


NoProy = InputBox("Número de proyecto", "")

'Creamos el workspace para trabajar con la BBDD de
ALDEBARAN
Set wrkODBC = CreateWorkspace("", "", "", dbUseODBC)

'Creamos la conexión a la BBDD ALFA de ALDEBARAN
Set dbsHASP = wrkODBC.OpenDatabase("ALDEBARAN", ,
True, "ODBC;DATABASE=ALFA.FUTURESPACE.ES;UID=GIF;PWD=GIF;DS
N=ALDEBARAN")

strSQL = "SELECT cuenta, importe FROM gastos_agresso WHERE
cproy = '" & NoProy & "'"

Set rcsDatos = dbsHASP.OpenRecordset(strSQL,
dbOpenSnapshot)

rcsDatos.Close
dbsHASP.Close
wrkODBC.Close



El tema es que al ejecutar la línea del OpenRecordset me
da un error '13' en tiempo de ejecución: No coinciden los
tipos.
La conexión es a una BBDD Oracle.

¿Alguien sabe como solucionarlo?

Un saludo,

Carlos