Visual Basic para Aplicaciones - oracle, procedimiento almacenado y macro en excel

Public Sub ConeccDB()

    Dim conn As ADODB.Connection

    Dim rst As ADODB.recordset

    Dim cmd As ADODB.Command

    Dim par1, par2 As ADODB.Parameter

    Set conn = New ADODB.Connection

    conn.Open "Driver={Microsoft ODBC for Oracle};" & _

    "Server=127.0.0.1;" & _

    "Uid=usuario;" & _

    "Pwd=pass"

    Set cmd = New ADODB.Command

    cmd.ActiveConnection = conn

    cmd.CommandText = "getDBUSERCursor"

    cmd.CommandType = adCmdStoredProc

    'Aquí empiezo a confundirme ya que según entiendo el parámetro de entrada se define así

    Set par1 = cmd.CreateParameter("entrada", adVariant, adParamInput)

    par1.Value = "usuario"

    cmd.Parameters.Append par1

    'Y el parámetro de salida es del cual obtengo los resultados del cursor

    Set par2 = cmd.CreateParameter("salida", adIUnknown, adParamOutput)

    cmd.Parameters.Append par2

    Set rst = New ADODB.recordset

    'En esta línea obtengo el error: "Tipo de parámetro no compatible"

    Set rst = cmd.Execute

     'De aquí en adelante se supone que el resultado aparece a partir de la casilla A4

    Sheet1.Cells(4, 1).CopyFromRecordset rst

    Set cmd = Nothing

    Set par1 = Nothing

    Set par2 = Nothing

    rst.Close

    Set rst = Nothing

    conn.Close

    Set conn = Nothing

End Sub

Sub inicio()

    Dim con As New ADODB.Connection

    Dim cmd As New ADODB.Command

    con.Provider = "msdaora"

    con.CursorLocation = adUseClient

    con.Open "PLSQLRSet=0;Data Source=127.0.0.1", "usuario", "password"

    Set cmd.ActiveConnection = con

    cmd.CommandType = adCmdStoredProc

    cmd.CommandText = "deleteDBUSER"

    Set par1 = cmd.CreateParameter("entrada", adVariant, adParamInput)

    par1.Value = 1 'le asígné el valor de 1 porque ese era el que iba a borrar

    cmd.Parameters.Append par1

    cmd.Execute

    con.Close

End Sub