Error when creating data reader

[simon]

I have:

par1 = New SqlParameter("@ mediaId", SqlDbType.VarCh ar, 10)
par1.Value = "text"
myParams.Add(pa r1)

par2 = New SqlParameter("@ datumStart", SqlDbType.DateT ime)
par2.Value = Now()
myParams.Add(pa r2)

sql = "c_returnTimeSl otsHour"
Dim rdr As SqlDataReader
rdr = funkcije.create DataReader(sql, False, myParams)

Then I have my function:

Function createDataReade r(ByVal sqlStr As String, Optional ByVal type As Boolean = False, Optional ByVal myParams As Collection = Nothing) As SqlDataReader
Dim oCmd As SqlCommand
Dim myReader As SqlDataReader
Dim param As SqlParameter
oCmd = New SqlCommand(sqlS tr, createConnectio n)
If type = False Then
oCmd.CommandTyp e = CommandType.Sto redProcedure
If Not myParams Is Nothing Then
For Each param In myParams
oCmd.Parameters .Add(param)
Next
End If
End If
myReader = oCmd.ExecuteRea der(CommandBeha vior.CloseConne ction)
Return myReader
End Function

The procedure:

CREATE PROCEDURE c_returnTimeSlo tsHour
@mediaId as varchar(10),
@datumStart as datetime
AS

SELECT ....

When I run this, I always get an error message:

Syntax error converting the varchar value 'text' to a column of data type int.

Why?

Thank you,
Simon