VB + OLAP: EXCEPTION_ACCESS_VIOLATION al correr EXE, bien al depurar

Añado mas datos, a ver si alguien pudiera ayudarme:

La consulta MDX que se envia al SP es mas o menos asi:

select NON EMPTY { MiCliente.Cliente.Members } on rows,
{ MiTiempo_AnhoTriMesDia.[2004].[Trimestre 2].June :
MiTiempo_AnhoTriMesDia.[2005].[Trimestre 2].May } on columns

From IcMonitor_Cubo Where ( Measures.MiImporte, MiVendedor.[25].AHP )

Si desde el Query Analyzer mando llamar a mi SP asi:
USE "icmonitor"
EXEC ics2_EjecutaConsultaMDX 'select NON EMPTY ...'

Obtengo los resultados deseados, tanto si me conecto al servidor usando
autentificacion de windows como con el nombre de usuario y password que
uso en mi programa.
Cuando voy depurando y corriendo mi programa paso a paso, tambien
funciona, el problema surge exclusivamente al compilar...

Este es el Stored Procedure con el que ejecuto las consultas MDX:

<codigo>
CREATE PROC ics2_EjecutaConsultaMDX( @ConsultaMDX VARCHAR(8000) ) AS

DECLARE @MiConsulta VARCHAR(8000)

SET @MiConsulta = 'SELECT * FROM OpenQuery( OLAP_SERVER, ' + CHAR(39) +
@ConsultaMDX + CHAR(39) + ' )'

EXEC (@MiConsulta)
GO
</codigo>


Y este es el codigo con el que hago la conexion en visual basic:

<codigo>
Const ConsultaMDX_1$ = "select NON EMPTY { MiCliente.Cliente.Members }
on rows, {"
'Const EjemploIntervalo$ = "MiTiempo_AnhoTriMesDia.[2004].[Trimestre
2].June :" & " MiTiempo_AnhoTriMesDia.[2005].[Trimestre 2].May"
Const ConsultaMDX_2$ = "} on columns From IcMonitor_Cubo Where (
Measures.MiImporte, "
'Const EjemploDimensionVendedor$ = "MiVendedor.[25].AHP"
Const ConsultaMDX_3$ = " )"

Const CorcheteAbierto$ = "["
Const CorcheteCerrado$ = "]"

Private IntervaloFechasMDX$
Private CadenaDimensionVendedor$

Public Sub OpenDataSource(ByRef RsDatos As ADODB.Recordset)
Dim ConsultaMDX$, ConsultaSQL$
Dim RsTemp As ADODB.Recordset
Dim N&, N2&, NumCamposEntrada&, NumCamposSalida&
Const CamposInicialesPorIgnorar& = 3
Const CampoIndiceCliente& = 2

On Error GoTo OpenDataSource_Error

CrearIntervaloFechasMDX
CrearCadenaDimensionVendedor
ConsultaMDX = ConsultaMDX_1 & IntervaloFechasMDX & ConsultaMDX_2 &
_
CadenaDimensionVendedor & ConsultaMDX_3
ConsultaSQL = SP_EjecutaConsultaMDX & CadenaApostrofe & ConsultaMDX
& CadenaApostrofe

Debug.Print ConsultaMDX
Debug.Print ConsultaSQL
Set RsTemp = New ADODB.Recordset
With RsTemp
.CursorLocation = adUseClient
.ActiveConnection = ConexionADO
.Open ConsultaSQL, , adOpenStatic, adLockReadOnly
Set .ActiveConnection = Nothing

NumCamposEntrada = .Fields.Count
NumCamposSalida = RsDatos.Fields.Count
Debug.Print .RecordCount

While Not .EOF
RsDatos.MoveFirst
RsDatos.Find "Cliente='" & .Fields(CampoIndiceCliente) &
CadenaApostrofe
If Not (RsDatos.EOF Or RsDatos.BOF) Then

N2 = NumCamposSalida - 1
For N = NumCamposEntrada - 1 To
CamposInicialesPorIgnorar + 1 Step -1
RsDatos.Fields(N2) = Nz(.Fields(N), 0)
N2 = N2 - 1
Next

End If
.MoveNext
Wend

.Close
End With
Set RsTemp = Nothing

On Error GoTo 0
Exit Sub

OpenDataSource_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in
procedure OpenDataSource of Módulo de clase
DatagridVentasMensualesClientes"
Resume Next
End Sub
</codigo>

"ConexionADO" es una variable global de tipo ADODB.Connection que
contiene una conexion hacia el servidor SQL Server que se abre desde
que arranca el programa y no expira.

"CadenaDimensionVendedor " e "IntervaloFechasMDX" son variables
globales cuyos valores son puestos por los subprocedimientos
"CrearCadenaDimensionVendedor" y "CrearIntervaloFechasMDX",
respectivamente. Para fines de ejemplo, los valores que toman dichas
variables son como los de las constantes "EjemploIntervalo" y
"EjemploDimensionVendedor".

¿alguna idea?