AYUDA CON CRITAL REPORTS 9.2

cam2004
07 de Enero del 2004
Buenas amigos tengo un problema con el cristal reports 9.0 soy bastante nuevo en esto, pero en fin siempre hay que empezar de alguna manera.

Empleo el cristal externo desde visual con los correspondientes objetos.
y todo va bn hasta que tengo q autentificarme en el servidor sql 2000 para ejecutar el reporte.

Mi problema es q no se como meterle la cadena de conexion al reporte, empleo adodb,
Option Explicit
Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report
Private Sub Form_Load()
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition
On Error GoTo ErrHandler
'Abrir el reporte
Screen.MousePointer = vbHourglass
mflgContinuar = True
Set crReport = crApp.OpenReport(App.Path & "Ejemplo.rpt", 1)
' Parametros del reporte
Set crParamDefs = crReport.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "@Parametro1"
crParamDef.AddCurrentValue(mstrParametro1)
Case "Parametro2"
crParamDef.AddCurrentValue (mlngParametro2)
End Select
Next
crViewer.ReportSource = crReport
crViewer.DisplayGroupTree = False
crViewer.ViewReport
Screen.MousePointer = vbDefault
Set crParamDefs = Nothing
Set crParamDef = Nothing
Exit Sub
ErrHandler:
If Err.Number = -2147206461 Then
MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", _
vbCritical + vbOKOnly
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgContinuar = False
Screen.MousePointer = vbDefault
End Sub
mi direccion de correo electronico es [email protected]