Add SQL Parameters via VBScript

Can someone please tell me what's wrong with the following code? It's erroring on the CreateParameter steps:

Set cnRRIPasswordChange = Server.CreateObject("ADODB.Connection")
Set cmdUser = Server.CreateObject("ADODB.Command")

cnRRIPasswordChange.Open Application("conn_string")

cmdUser.ActiveConnection = cnRRIPasswordChange
cmdUser.CommandType = 4 'adCmdStoredProc
cmdUser.CommandText = "sp_WS_UpdatePassword"

cmdUser.Parameters.Append cmdUser.CreateParameter("returnValue", adInteger, adParamReturnValue)
cmdUser.Parameters.Append cmdUser.CreateParameter("@nUserId", adInteger, adParamInput, , objUserLookUp(nUserId"))
cmdUser.Parameters.Append cmdUser.CreateParameter("@cPwdNew", adVarChar, adParamInput, 25, Request("password"))
' cmdUser.Execute