Через ADO вызвать xp_smtp_sendmail (SQL) - VB

Формулировка задачи:

Не могу передать параметры.

....
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cn
cmd.CommandText = "xp_smtp_sendmail"
cmd.CommandType = adCmdStoredProc
....
Set prm = New ADODB.Parameter
ss = "removed@mail.ru"
Set prm = cmd.CreateParameter("@from", adChar, adParamInput, Len(ss), ss)
cmd.Parameters.Append prm
....
cmd.Execute

Ругается. Говорит "анкноун стринг параметр..."

Решение задачи: «Через ADO вызвать xp_smtp_sendmail (SQL)»

textual
                            Листинг программы 
                        
                            cmd.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue)