Falla crystal report 8.5 VB6

[carlos79]

Buenos dias estimados amigos foristas :

Estoy generando una aplicación en visual basic 6 y quiero mostrar la información de la base de datos en reportes empleando el software crystal report 8.5

Cuando trabajo sin parámetros, el reporte me corre sin problemas... Ahora bien, cuando quiero hacer una consulta en la base de datos y mostrar los resultados en el reporte me da el siguiente error :

ERROR 91 en tiempo de ejecución. Variable de tipo object o la variable de bloque with no está establecida...

Cuando depuro la falla está aqui :
.Database.SetDataSource rs

El código que estoy empleando en mi software es el siguiente :




Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim conexion As String
Dim conparametro As CrystalReport1


Private Sub Form_Load()

Set cn = New ADODB.Connection
conexion = "DRIVER={mysql odbc 5.1 driver};" _
& "SERVER=XXX.XXX.XXX.XXX;" _
& "Database=---------;" _
& "UID=-------------;" _
& "password=-----------;" _
& "port=3306;option3 "

cn.ConnectionString = conexion
cn.Open


Dim codi
Dim rs

codi= InputBox("Escriba el código del empleado")

Set rs = New ADODB.Recordset

With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select * from planificado where cod_audit like '%" & codi & "%' order by cod_audit", cn
End With

With conparametro
.Database.SetDataSource rs
.PaperOrientation = 1
.PaperSize = 45
.DiscardSavedData
End With

CRViewer1.ReportSource = conparametro
CRViewer1.ViewReport

End Sub


Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub



De antemano agradezco mucho el apoyo que me puedan brindar...

Buen dia.

Carlos.