Visual Basic - Pasar parametros a un store procedure sin command

como pasarle parametros al strore procedure sin usar el objeto command hasta ahora se me ha recomendado hacerlo así hace asi:

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

Dim a As ADODB.Command

Set a = New ADODB.Command
a.CommandType = adCmdText
a.CommandText= exec "nombre del store " & parametro1 & parametro2