<%@ Import Namespace="System.Data.SqlClient" %> <%@ Import Namespace="System.Data" %> <% Dim conNorthwind As SqlConnection Dim strInsert As String Dim cmdInsert As SqlCommand conNorthwind = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=Northwind" ) cmdInsert = New SqlCommand( "InsertProducts", conNorthwind ) cmdInsert.CommandType = CommandType.StoredProcedure cmdInsert.Parameters.Add( "@ProductName", "Milk" ) cmdINsert.Parameters.Add( "@UnitPrice", 12.45 ) conNorthwind.Open() cmdInsert.ExecuteNonQuery() conNorthwind.Close() %> New Product Added!