mmm, no detecto nada raro en tu code...,
, estas seguro que te marca error en "PROCEDURE" ??
Porque yo hice ésto y me funcionó:
Cita: Dim con As SqlConnection
Dim cmd As SqlCommand
Dim sSQL As String = "CREATE PROCEDURE AD_Controles @portal nvarchar" & _
" AS" & _
" SELECT * FROM portal_controles" & _
" WHERE Panel LIKE @portal + '%'" & _
" ORDER BY Panel"
con = New SqlConnection(ConfigurationSettings.AppSettings("c onstring"))
cmd = con.CreateCommand
cmd.CommandType = CommandType.Text
cmd.CommandText = sSQL
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Salu2