Crystal Report - Rdoresultset

Muy buenas,

Me gustaría saber si alguien ha trabajado alguna vez con crystal y rdo. El problema viene cuando se crea el rdoresulset y se lo paso al rpt. Con Ado o Dao no tengo ningún problema pero al usar Rdo da error de conexión.

Creo que se está intentando conectar a la base de datos pero no lo debería de hacer.

Os pongo un código de ejemplo por si veis algo raro.

------------------------------------------------------------------------------

Dim sql As String
Dim Crystal As CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Dim Data As CRAXDRT.Database

'Abro la conexión
Set rdoEnv = rdoEnvironments(0)
rdoEnv.UserName = "Username"
rdoEnv.Password = "Pass"
rdoEnv.CursorDriver = rdUseOdbc
Set rdoCon = rdoEnv.OpenConnection("", rdDriverNoPrompt, False,"DSN=RPT")

'Creo el rdoresultset
RdoRs

Set Crystal = New CRAXDRT.Application

Set Report = Crystal.OpenReport("FR1106.rpt")
Report.DiscardSavedData

Set Data = Report.Database

Data.SetDataSource Rs, 3, 1

Report.Database.SetDataSource Rs, 3, 1

CrViewer.ReportSource = Report
CrViewer.ViewReport

---------------------------------------------------------------------

Muchas gracias a todos.

Un saludo.