SqlConnection DBConn = New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
        DBConn.Open()
        'Create command 
        Dim DBCommand As SqlCommand = DBConn.CreateCommand()
        DBCommand.CommandType = CommandType.StoredProcedure

        ' Stored Procedure Name
        DBCommand.CommandText = "StoredProcedureName"
        DBCommand.CommandType = CommandType.StoredProcedure
        
        Dim parameterValues As Object() = {Field Values to be added}

        ' Populate command.Parameters Collection. 
        ' Causes Rountrip to Database. 
        SqlCommandBuilder.DeriveParameters(DBCommand)
        ' Initialize Index of parameterValues Array 
        Dim index As Integer = 0
        ' Populate the Input Parameters With Values Provided 
        For Each parameter As SqlParameter In DBCommand.Parameters
            If parameter.Direction = ParameterDirection.Input OrElse parameter.Direction = ParameterDirection.InputOutput Then
                parameter.Value = parameterValues(index)
                index += 1
            End If
        Next
        Dim DBAdapter As New SqlDataAdapter()
        Dim DSValue As New DataSet()
        DBAdapter.SelectCommand = DBCommand
        DBAdapter.Fill(DSValue)
        GridVew1.DataSource = DSValue
        GridVew1.DataBind()