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

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

Не могу передать параметры хранимой процедуре xp_smtp_sendmail.
....
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
                            Листинг программы 
                        
                            cn.execute <font color="teal">"exec master.dbo.xp_smtp_sendmail @from = 'vasya@mail.ru'"</font>