Crystal Report - PARA EXPERTOS EN RDC

Gracias por interesarte por mi consulta.

El siguiente código me da un error que es el siguiente :

'Aun no se ha abierto el servidor'

Cn es la conexión directa al servidor y es global.

Dim Report As New CRpt_Clientes

Private Sub Form_Load()

Screen.MousePointer = vbHourglass

Dim rs_1 As ADODB.Recordset

Set rs_1 = New ADODB.Recordset

rs_1.Open "SELECT * FROM CLIENTE", Cn, 1, 2

Report.Database.SetDataSource rs_1, 3, 1

CRView.ReportSource = Report
CRView.ViewReport

Screen.MousePointer = vbDefault

End Sub