Reportes dinámicos con crystal report y procedimientos almacenados

[emerson]

Yo uso procedimientos almacenados para generar mis reportes y la conexión lo hago asi:
Dim ReportTransf As New repTransferencia
Conectar() 'conexion a la db
Dim Users As New SqlCommand
Dim Deta As New DataSet
Users.CommandText = "sp_GeneraDocTransferencia" 'nombre de proc. alm.
Users.CommandType = CommandType.StoredProcedure
Users.Connection = EnlaceAux 'Previamente definida

Dim Detalle As New SqlDataAdapter
Detalle.SelectCommand = Users
Users.Parameters.Add(New SqlParameter("@CodIntOpcional", SqlDbType.Char))
Users.Parameters.Add(New SqlParameter("@Reg_Fecha", SqlDbType.DateTime))

Users.Parameters("@CodIntOpcional").Value = Session("Trasnf_CodIntOpcional")
Users.Parameters("@Reg_Fecha").Value = Session("Trasnf_Reg_Fecha")


Detalle.Fill(Deta, "Detalles")
ReportTransf.SetDataSource(Deta.Tables("Detalles") )

'Asocia el reporte con el Visualizador
CRepTransfer.BorderStyle = BorderStyle.Inset
CRepTransfer.ReportSource = ReportTransf
Detalle.Dispose()