Como le paso un parametro a un reporte.rpt

[zxs23]

El codigo que tengo me funciona bien pero ahora quiero pasarle un parametro, ya cree otro reporte en crystal report 8 con la variable Fcod de tipo string como parametro.

Como modifico mi codigo para pasarle ese parametro desde un text1, el codigo que utilizo para el reporte sin parametro es este:

Código:

Public Function Imprimir(strsql As String, strpathrep As String) As Boolean
Dim rs As New ADODB.Recordset
 
On Error GoTo OcurrioError
Set Cryapp = CreateObject("Crystal.CRPE.Application")
Set CryReport = Cryapp.OpenReport(strpathrep)
rs.Open strsql, dbConex, adOpenDynamic, adLockOptimistic

Set reportDb = CryReport.Database
Set reportTables = reportDb.Tables
Set reportTable = reportTables.Item(1)
 
Call reportTable.SetPrivateData(3, rs)

Set repView = CryReport.Preview
Imprimir = True
Exit Function
OcurrioError:
Imprimir = False
MsgBox "Ocurrio un error: " & Err.Number & " " & Err.Description
End Function

[zxs23]

Ya encontre la solucion es asi:

Código:

CrystalReport1.ParameterFields(0) = "Fcodcargo;" & Text1.Text & ";true"

Fcodcargo es el nombre del parametro que se coloco en el crystal report.

Ahora tengo este "Error 20599 cannot open SQL server" he buscado por todos lados y no puedo solucionar ni con esta esto

He conseguido las versiones exactas de los archivos exepto esta 2
p2sodbc.dll 8.5.0.72
ntwdblib.dll 2000.2.8.0

Si alguien las tiene las puede compartir