Visual Basic - PARAMETROS EN CONSULTA

Estoy intentando ejecutar una consulta con 2 parametros, al ejecutar el codigo me sale el siguiente mensaje de error "pocos parametros, se esperaban 2"

Public Sub ActiveConnectionX()
Dim cnPedidos As ADODB.Connection
Dim rsPedidos As ADODB.Recordset
Dim cmdPedidos As ADODB.Command
Dim prmPedidos As ADODB.Parameter

Dim dteFechaInicio As Date
Dim dteFechaFinal As Date

Dim strCnn As String

Set cnPedidos = New ADODB.Connection
strCnn = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & "E:\ultrasample\programa\nwind.mdb"

cnPedidos.Open strCnn

Set cmdPedidos.ActiveConnection = cnPedidos
cmdPedidos.CommandText = "PARAMETERS fecha_inicio Datetime,fecha_final Datetime; SELECT idpedido, destinatario FROM pedidos WHERE fechapedido between fecha_inicio and fecha_final;"
cmdPedidos.CommandType = adCmdText

dteFechaInicio = #6/17/1994#
dteFechaFinal = #6/17/1995#

'aqui asigno valores a los parametros
Set prmPedidos = cmdPedidos.CreateParameter(0, adDate, adParamInput, 15)
cmdPedidos.Parameters.Append prmPedidos
cmdPedidos.Parameters(0).Value = dteFechaInicio

Set prmPedidos = cmdPedidos.CreateParameter(1, adDate, adParamInput, 15)
cmdPedidos.Parameters.Append prmPedidos
cmdPedidos.Parameters(1).Value = dteFechaFinal

' Crea un objeto Recordset al ejecutar el comando.
Set rsPedidos = cmdPedidos.Execute
Set SSUltraGrid1.DataSource = rsPedidos
cnPedidos.Close

End Sub

Parece que mis parametros no los reconoce... a que se puede deber?
es