我的程序错在哪里？

[fuping]

sp_addsubscription是SQL SERVER 的系统存储过程，a1至a5是被赋值的变量。
执行到cmd.execute就不能通过。为什么？怎样改正？
Sub aa()

Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command

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

'MsgBox a1
'为存储过程定义命令对象

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

[fuping]

急急

[glite]

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
分开定义试试

[whjpn]

同意楼上的