Imports System

Imports System.Data

Imports System.Data.Sql

Imports System.Data.SqlServer

Imports System.Data.SqlTypes

Partial Public Class StoredProcedures

    <SqlProcedure()> _

Public Shared Sub InsertPrCategoryName(ByVal CategoryName As SqlString)

Dim InsertPrCategoryCommand As SqlCommand = SqlContext.GetCommand()

        InsertPrCategoryCommand.CommandText = "INSERT into Production.ProductCategory(Name) VALUES('" & NameStr & "')"

        InsertPrCategoryCommand.ExecuteNonQuery()

End Sub

End Class