Bien, pero tu problema creo que es utilizar procedimientos almacenados.
en este caso commandtype debe ser adcmdproc
dim Cn as adodb.connection, Cmd as adodb.command, Rec as adodb.Recordset
Set Cn=new adodb.connection
cn.open connectionstring, usuario, clave
set Cmd=new adodb.command
set Cmd=new adodb.command
cmd.commandtype=adcmdproc
cmd.activeconnection=cn
cmd.commandtext="procedimiento parámetro, ..., ..."
Rec=cmd.execute
Ojo, en sql server los procedimientos se pasan de otra forma. Allí es funcion(parámetro, parámetro, ..., etc)
Un saludo