Visual Basic - Agregar datos con Store Procedure

Estoy trabajando cliente servidor tres capas quiero agregar varios datos a un store procedure de ms sql server 7 desde mi capa de negocios, pero no se como pasar varios parametros al procedimiento almacenado, este es el ejemplo:

Public Function AgregarLibros(strCOT As String, strTIT As String, strAUT As String, strEDITO As String, strESP As String, strISB As String, strCOP As String, strEDICI As String, strREE As String, strREI As String, strANN As String, strDES As String, strOBS As String) As Boolean

Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection

\'Cadena de conexión SQL Server
cn.Open (\"Provider=SQLOLEDB.1;Integrated Security=SSPI;\" _
& \"Persist Security Info=False;Initial Catalog=BJMC;Data Source=NTSRV1\")

rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cn
cmd.CommandText = \"AGREGALIBROSP\"
cmd.CommandType = adCmdStoredProc

Set prm = cmd.CreateParameter(\"@AGREGALIBRO\", adVarChar, adParamInput, 50)
cmd.Parameters.Append prm
prm.Value = (ArgInput) \' <------------- Aquí esta mi duda

Set rs = cmd.Execute()

Set AgregarLibros = rs

End Function

hola, mira yo como he pasado parametros a un procedimiento almacenado es de la siguiente manera:
Set cmd = New ADODB.Command
With cmd
.CommandText = "pSuscripcion_Tarifa"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter(, adTinyInt, adParamInput, , bMeses)
.Parameters.Append .CreateParameter(, adBoolean, adParamInput, , fEsNacional)
.Parameters.Append .CreateParameter(, adBoolean, adParamInput, , fEsDirecto)
Set .ActiveConnection = DB
.Execute

End With
Espero te sirva