Problem med kald af stored procedure

Jeg vil gerne have hjælp til følgende.
Mit kald ser sådan ud:

set cmd = Server.CreateObject ("ADODB.Command")
cmd.ActiveConnection = Conn
cmd.CommandText = "test2"
cmd.CommandType = adCmdStoredProc
set parameter = cmd.CreateParameter ("@modul", adChar, adParamInput, 3)
set parameter = cmd.CreateParameter ("@opgave", adChar, adParaInput, 1)
if request.form("modulnum") <> "" then
  cmd.Parameters("@modul") = request.form("modulnum")
else
  cmd.Parameters("@modul") = ""
end if
if request.form("opgbog") <> "" then
  cmd.Parameters("@opgave") = request.form("opgbog")
else
  cmd.Parameters("@opgave") = ""
end if
set rs = server.CreateObject("ADODB.Recordset")
rs = com.Execute

.... men det giver en fejl:
ADODB.Command (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/epit/simp_soeg_commit.asp, line 47 (linien med cmd.CommandType = adCmdStoredProc)