— Начало метки A
dim cmdStr = «SELECT « & _
   «dbo.ufProductsInCategory(@CategoryID)»
dim cmd1 AS New SqlCommand(cmdStr, cnn1)
Dim prm1 AS SqlParameter = _
   cmd1.Parameters.Add(«@CategoryID», _
   SqlDbType.Int)
prm1.value = integer.Parse(Textbox1.Text)
int1 = cmd1.ExecuteScalar
— Конец метки A

— Начало метки B
cmdStr = «SELECT dbo.ufDiscontinued» & _
   «ProductsInCategory(@CategoryID)»
cmd1.CommandText = cmdStr
int2 = cmd1.ExecuteScalar
— Конец метки B

— Начало метки C
Label2.Text = int2 & « discontinued « & _
   «products from a total of « & int1 & «.»
— Конец метки C

— Начало метки D
cmdStr = «SELECT CategoryName, ProductName « & _
   «FROM ufDiscontinuedProductRowsInCategory» & _
   «(@CategoryID)»
cmd1.CommandText = cmdStr
dim dap1 AS New SqlDataAdapter(cmd1)
dap1.Fill(das1)
DataGrid1.DataSource = das1.Tables(0)
— Конец метки D