ADO存储过程的查询名称？

tmpx

Dim i As Integer
Dim j As Integer
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim user As ADODB.Parameter
Set con = CurrentProject.Connection
With cmd
　　.ActiveConnection = con
　　.CommandText = "parameters struser string; select [login].[ID] ,[login].[userID] from login where [部门名称] = @struser"
　　.CommandType = adCmdStoredProc
End With
Set user = New ADODB.Parameter
　　user = cmd.CreateParameter("struser", adBSTR, adParamInput)
　　user.value = bm.Text
　　rs.CursorType = adOpenStatic
'下一句出错，execute后面需要查询名称，这里应该怎么写
　 Set rs = cmd.Execute(, user)
查询名称究竟是什么东西？是否前面哪里错了？请指教 [em06][em06][em06][em06][em06][em04][em04][em01][em01][em01][em01]

HG

dim my_usp as string
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim user As new ADODB.Parameter

my_usp = "您的存儲過程名"
With cmd
　　.ActiveConnection = currentproject.connection
　　.CommandText = my_usp
　　.CommandType = adCmdStoredProc
End With
set user = cmd.createparameter(,adbstr,adparainput)
cmd.parameters.append user
   rs = comm.execute
'調用完後
set user = nothing
set cmd = nothing
set rs = nothing