Ejecutar Command qeu es un Procedimiento Almacenado VB.NET

[chcma]

Hola, buenas tardes !!

Verán tengo el siguiente código para ejecutar un Procedimiento Almacenado que me devuelve unas filas.

El procedimiento recibe un parametro de tipo varchar. En mi SQL Server, el procedimiento funciona.

Bueno, en VB.NET tengo el siguiente código:



Dim CN As SqlConnection = New SqlConnection("cadena .....")
Dim DR As SqlDataReader
Dim Cmd As SqlCommand = New SqlCommand("Restaurantes", CN)
Dim CmdParametro As SqlParameter = New SqlParameter


LOAD:
CmdParametro.SqlDbType = SqlDbType.VarChar
Cmd.CommandType = CommandType.StoredProcedure



BOTON (Click):
CmdParametro.Value = txtparametro.Text
Cmd.Parameters.Add(CmdParametro)

Try
CN.Open()
DR = Cmd.ExecuteReader
If DR.Read Then
While DR.Read
LBLista.Items.Add("Restaurante: " & DR("restaurante"))
End While
Else
MessageBox.Show("No hay datos", "Datos")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
CN.Close()
End Try




El error que me da, al ejecutar el boton es el siguiente:
Parameter1 no es un parámetro del procedimiento Restaurantes


¿Alguien puede decirme que puede ser?

Gracias.