Elaborar reporte con sp con parametros

[jsr_17_7]

Hola a todos!!! quisiera que me puedan ayudar en lo siguiente... es la primera vez que hago un reporte en vb.net 2003 con sql server... lo que quisiera es saber si alguien me puede pasar un codigo de como hacer un reporte con procedimiento almacenado con parametros... se lo agradeceria mucho si lo postea aqui nomas en esta pagina... este es el codigo x ejemplo k coloca para hacer mi reporte

Me.Dtpfecha.Value = Now
Dim p1 As SqlParameter
Try
cn.Open()
da.SelectCommand = New SqlCommand
da.SelectCommand.Connection = cn
da.SelectCommand.CommandText = "SALIDAS_DEL_DIA"
da.SelectCommand.CommandType = CommandType.StoredProcedure

p1 = New SqlParameter("@FECHA", SqlDbType.DateTime)
p1.Direction = ParameterDirection.Input
p1.Value = Me.Dtpfecha.Text

da.SelectCommand.Parameters.Add(p1)

da.Fill(ds, "Tabla")


cr.SetDataSource(ds.Tables("Tabla"))
Me.CrystalReportViewer1.ReportSource = cr
cn.Close()
Catch ex As Exception
MessageBox.Show("ERROR EN SP_SALIDAS_DEL_DIA " & ex.Message)
End Try


y esta es mi consulta en sql x ejemplo k kiero k haga...

CREATE PROCEDURE SALIDAS_DEL_DIA
@FECHA DATETIME
AS
SELECT V.CVIA_CODIGO,
C1.VCIU_DESC_LARGA AS PARTIDA,
C2.VCIU_DESC_LARGA AS LLEGADA
FROM VIAJE AS V
INNER JOIN RUTA AS R ON V.CRUTA_CODIGO = R.CRUTA_CODIGO
INNER JOIN CIUDAD AS C1 ON R.CCIU_CODIGO_PAR = C1.CCIU_CODIGO
INNER JOIN CIUDAD AS C2 ON R.CCIU_CODIGO_LLE = C2.CCIU_CODIGO
WHERE V.DVIA_FEC_SALIDA = @FECHA
GO

pero al final no me sale... no me muestra el nombre de las ciudades