紧急求助：程序问题所在。拜托了！

[lht_1991]

ACCESS2010 VBA 调用服务器SQL带参数的存储过程

Private Sub Command56_Click()
'如果配置为空，带入相同型号的标准配置
Dim cmd As ADODB.Command
Dim conn As ADODB.Connection
Dim prm As ADODB.Parameter

Set conn = New ADODB.Connection
conn.Open "provider=sqloledb.1;" & _
"data source=erpserver;initial catalog=katzlgl;" & _
"user id = sa;pwd="

Set cmd = New ADODB.Command
cmd.commandtext = "cppz_dr"
cmd.commandtype = adcmdstoredproc
Set cmd.activeconnection = conn

Set prm = cmd.CreateParameter("lxbm", advarChar10, adParamInput)
cmd.Parameters.Append prm '这一句总是报错，是不是有什么空间没有引用？？？？？
cmd.Parameters("lxbm").Value = LXBM

Set prm = cmd.CreateParameter("xhbm", advarChar10, adParamInput)
cmd.Parameters.Append prm
cmd.Parameters("xhbm").Value = XHBM

cmd.Execute
conn.Close
End Sub

[lht_1991]

为何没有人理睬，是问题太简单了吗？

[wwwwb]

Set prm = cmd.CreateParameter("lxbm", advarChar10, adParamInput)->
Set prm = cmd.CreateParameter("lxbm", advarChar, adParamInput)
试试