Problema con Crystal 10 + VB6 + SQL Server2K

[hymen_sys]

saludos...
yo tengo un peoblema similar..
pero en mi caso..
no me arroja ningun error
simplemten no me muestra los datos del reporte..
lo que etoy haciendo solo es llamar a un reporte el cual llama a un sp el cua ltiene unos parametros.

no se si me pudieran dar una manita..?
esta es una forma

Option Explicit
Dim CrApli As CRAXDRT.Application
Dim CrReport As CRAXDRT.Report
Dim CrParDef As CRAXDRT.ParameterFieldDefinition
Dim CrParDefs As CRAXDRT.ParameterFieldDefinitions
Public CrParametro As String 'Varuiable de Parametro (NomPar,Valor)
Dim arrNomPar() As String
Dim arrValPar() As String
Dim Arreglo() As Variant
Dim frmRep As New frmRepor10

Private Sub Form_Load()

'CrApli

End Sub

Private Sub Form_Resize()
With CrView
.Top = 0
.Left = 0
.Width = ScaleWidth
.Height = ScaleHeight
End With
End Sub

'Private Function BuscaParName(NomParFind As String) As Integer
''************************************************ ****************
''************************************************ ****************
'Dim I As Integer
' BuscaParName = -1
' For I = 0 To UBound(arrNomPar) - 1
' If UCase(Trim(arrNomPar)) = UCase(Trim(NomParFind)) Then
' BuscaParName = I
' Exit Function
' End If
' Next I
'
'
'End Function
Private Function BuscaParName(ByVal NomParFind As String) As Integer
'************************************************* ***************
'************************************************* ***************
Dim i As Integer
BuscaParName = -1
' NomParFind = Mid(NomParFind, 3, Len(NomParFind) - 3)
For i = 0 To UBound(Arreglo) - 1
If UCase(Trim(NomParFind)) = UCase(Trim(Arreglo(i))) Then
BuscaParName = i
Exit Function
End If
Next i


End Function
Public Sub ShowReport(RutaReport As String, Destino As Integer, CantPar As Integer, ParamArray Par() As Variant)
'************************************************* ***************
' Desarrollado por Jimmy Fecha(06-Mar-2007)
' Destino , lo Muestro o lo Imprimo '1=Formulario
' 2=impresora
' 3=PDF
'************************************************* ***************

Dim Pos As Integer
Dim Cont As Integer
Dim vStr As String
Dim vInt As Integer
Dim crDBTab As CRAXDRT.DatabaseTable
On Local Error GoTo ShowReportErr

Dim j As Integer
j = -1
ReDim Arreglo(0)

Do
j = j + 1
ReDim Preserve Arreglo(j)
Arreglo(j) = Par(j)
Debug.Print Arreglo(j)
Loop Until j = (CantPar * 2) - 1



Set CrApli = New CRAXDRT.Application
Set CrReport = New CRAXDRT.Report
Set CrReport = CrApli.OpenReport(RutaReport, 1)
Set CrParDefs = CrReport.ParameterFields

'CrReport.Database.LogOnServer "crdb_odbc.dll", "rptfacusa", "Facusa", "sa", ""
CrReport.Database.LogOnServer "p2ssql.dll", "Produccion", "Facusa", "sa", ""
CrReport.DiscardSavedData

' For Each crDBTab In CrReport.Database.Tables
' crDBTab.SetLogOnInfo "Produccion", "Facusa"
' Next
Debug.Print '-----------------------------'
Cont = 0

' If CrReport.ParameterFields.Count > 0 Then
' For j = 1 To CrReport.ParameterFields.Count
' Set CrParDef = CrParDefs.Item(j)
' Pos = BuscaParName(CrParDef.ParameterFieldName)
' Select Case CrParDef.ValueType
' Case 12
' CrParDef.AddCurrentValue (Str$(Par(Pos + 1)))
' Case Else
' CrParDef.AddCurrentValue (Par(Pos + 1))
' End Select
' Debug.Print CrParDef.Value
' Next j
' End If
'

On Local Error GoTo 0
For Each CrParDef In CrParDefs
Pos = BuscaParName(CrParDef.ParameterFieldName)
Debug.Print CrParDef.ParameterFieldName & " ---->> " & Par(Pos + 1)
If Pos < 0 Then MsgBox "Error": Exit Sub
' CrReport.ParameterFields(1).AddCurrentValue ()

vStr = Par(Pos + 1)
vInt = IIf(IsNumeric(Par(Pos + 1)), Par(Pos + 1), 0)
Select Case CrParDef.ValueType
Case 12, 0
CrParDef.AddCurrentValue (vStr)
Case Else
CrParDef.AddCurrentValue (vInt)
End Select

Cont = Cont + 2


' Select Case CrParDef.ParameterFieldName
' Case "Parametro1"
' CrParDef.Name
' CrParDef.AddCurrentValue (mstrParametro1)
' End Select
Next

'With CrView
'CrView.Zoom 1
CrView.ReportSource = CrReport

'CrView.DisplayGroupTree = False
CrView.ViewReport 'Destino
'End With

' Set CrParDefs = Nothing
' Set CrParDef = Nothing

Screen.MousePointer = vbDefault

frmRep.Show

Exit Sub
ShowReportErr:
MsgBox Err.Description




End Sub