めもなんですが。
Dim CommandText As String = "oreStoredProc"
Dim myConnection As New SqlConnection(ConnectionString)
Dim myCommand As New SqlCommand(CommandText, myConnection)
'中略
For Each Moo As SqlParameter In myCommand.Parameters
Trace.Warn(Moo.ParameterName, Moo.Value)
Next