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