Problema con OpenRecordSet

Hola carlos, supongo que estas utilizando acceso DAO,

ya estableciste la referencia al DAO? ( en el editor de VB, en Herramientas
/ Referencias activa el acceso a datos DAO), en cuyo caso seria mejor
que declararas tus variables de la siguiente manera

Dim dbsHASP As DAO.Database
Dim rcsDatos As DAO.Recordset

ahora, no se si con DAO puedas conectarte a Oracle, en cuyo caso pdrias usar
ADO y una cadena de conexion, aunque la tecnica es totalmente diferente

Saludos
Carlos Durán

"Carlos" escribió en el mensaje
news:107701c46ef9$03425f50$
Hola,
tengo el siguiente problema: tengo este código y al llegar
al openrecordset me sale el error en tiempo de
ejecución '3146': Error definido por la aplicación o el
objeto.

Alguien me puede decir que error ve? La conexión es una
base de datos Oracle 8i.

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, dbOpenDynamic)



rcsDatos.Close
dbsHASP.Close
wrkODBC.Close