我使用VB向SQL中的sp_addsubscription 存储过程的前七个参数赋值，请看我的程序有何错误。大家一定要帮忙救急不胜感激。

[fuping]

a1-a5是五个被赋值的变量，aa()是被调用的一个过程。
cmd.excute 语句不能被执行,提示错误为“无效的syspublications”.

Sub aa()
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command

Dim prms0 As ADODB.Parameter
Dim prms1 As ADODB.Parameter
Dim prms2 As ADODB.Parameter
Dim prms3 As ADODB.Parameter
Dim prms4 As ADODB.Parameter
Dim prms5 As ADODB.Parameter
Dim prms6 As ADODB.Parameter
'Dim rs As ADODB.Recordset
Dim strcnn As String

'为存储过程定义命令对象
Set cnn = New ADODB.Connection
strcnn = "provider=sqloledb;database=eximple;user id=sa;password=;DRIVER={SQL Server};SERVER=Liyougui"
cnn.Open strcnn

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn
cmd.CommandText = "sp_addsubscription"
cmd.CommandType = adCmdStoredProc

Set prms0 = New ADODB.Parameter
prms0.Type = adChar
prms0.Size = 10
prms0.Direction = adParamInput
prms0.Value = a1

Set prms1 = New ADODB.Parameter
prms1.Type = adChar
prms1.Size = 10
prms1.Direction = adParamInput
prms1.Value = "ALL"

Set prms2 = New ADODB.Parameter
prms2.Type = adChar
prms2.Size = 10
prms2.Direction = adParamInput
prms2.Value = a2

Set prms3 = New ADODB.Parameter
prms3.Type = adChar
prms3.Size = 10
prms3.Direction = adParamInput
prms3.Value = a3

Set prms4 = New ADODB.Parameter
prms4.Type = adChar
prms4.Size = 15
prms4.Direction = adParamInput
prms4.Value = a4

Set prms5 = New ADODB.Parameter
prms5.Type = adChar
prms5.Size = 10
prms5.Direction = adParamInput
prms5.Value = ""

Set prms6 = New ADODB.Parameter
prms6.Type = adChar
prms6.Size = 4
prms6.Direction = adParamInput
prms6.Value = a5

cmd.Parameters.Append prms0
cmd.Parameters.Append prms1
cmd.Parameters.Append prms2
cmd.Parameters.Append prms3
cmd.Parameters.Append prms4
cmd.Parameters.Append prms5
cmd.Parameters.Append prms6

cmd.Execute

End Sub