Visual Basic - Caracteristica pocional no implementada

Ese es el error que obtengo al ejecutar el procedimiento almacenado... Este es el codigo donde veo el error en la linea Cmd.Execute:
Private Sub cmdRegistrar_Click()
Dim Con As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim Par1, Par2, Par3, Par4, Par5, Par6 As ADODB.Parameter

Con.ConnectionString = "DSN=BASEPoliticas"
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = SP_AgregarNota

Set Par1 = Cmd.CreateParameter("Numero", adInteger, adParamInput, 4, CInt(Me.Nota))
...
Set Par6 = Cmd.CreateParameter("Autor", adChar, adParamInput, 7, Me.Autor)
Cmd.Parameters.Append Par1
...
Cmd.Parameters.Append Par6

Con.Open
Cmd.ActiveConnection = Con
Cmd.Execute
Con.Close

End Sub

Y este es el procedimiento almacenado.. que desde la ventana de un archivo adp funciona bien...
CREATE PROCEDURE dbo.SP_AgregarNota
@Numero int,
@Anio char(2),
@Fecha smalldatetime,
@Destino char(50),
@Autor char(7),
@Referencia char(50)
AS
INSERT NotasSalientes (Numero, Anio, Fecha, Destino, Referencia, Autor) VALUES (@Numero,@Anio,@Fecha,@Destino,@Referencia,@Autor)

No tengo idea de lo que pasa... son mis primeros pasos con SQL Server..
Ayuda por favor....

Este código es igual al asp que mencionas...

A mi me gusta poner los parámetros en toda la cadena de ejecución:
Cmd.CommandText = "SP_AgregarNota @parametros=datos....", para comprobar que todo esté bien, luego creo lso parámetos del comando y los separo