Problema al pasar parametros a un procedimiento almacenado

[edusepu]

Hola, estoy tratando de pasar parametros a un procedimiento almacenado de SQL para mostrarlos en un reporte crystal report. El error que me dice es que el procedimiento almacenado esperaba un valor pero no lo recibe. Mi codigo es el siguiente





Dim ParamDis As New ParameterDiscreteValue()

Dim param As New ParameterField()

Dim Connection As New ConnectionInfo



CrystalReport2.Load(Me.Server.MapPath("reporte.rpt "))



With Connection

.ServerName = "mi servidor"

.DatabaseName = "mi base"

.UserID = "sa"

.Password = "1234"

End With



RepConnInfo(Connection, CrystalReport2)



param.Name = "@codigo"

ParamDis.Value = "U3448"

param.CurrentValues.Add(param)

lista.Add(param)

Me.CrystalReportViewer1.ParameterFieldInfo = lista

Me.CrystalReportViewer1.ReportSource = CrystalReport2

Me.CrystalReportViewer1.RefreshReport()





antes lo llamaba asi al reporte y funcionaba bien, y el procedimiento almacenado tomaba ese dato de otra tabla, pero ahora necesito pasarsela por cdigo.



Muchas gracias