Crystal Report 9

Lo primero que se me plantea es ¿cuándo cierras la conexión que abres con ObtenerAdoRs?. Si quieres utilizar rAdoRs su conexión deberá estar abierta. Por otro lado, comprueba que esta conexión que abres no es en modo exclusivo.
Si lo que quieres es modificar el criterio de selección de registros en el informe, deberías utilizar el método crReport. RecordSelectionFormula.
Insisto en que mientras tengas cualquier objeto en modo edición en el entorno Access (tabla, consulta, formulario,...) la base de datos se considera abierta en modo exclusivo.

A que te refieres con lo de modo edición.
Yo abro una conexión independiente porque necesito modificar la select que tengo predefinida en el CR. Te envío todo el código que utilizo para ver si así entiendes lo que pretendo hacer.
Option Compare Database
Public lidConcepto, lidConcepto2, lidConcepto3, lidConcepto4, _
lidConcepto5, lidConcepto6, lidConcepto7, Curso As Long
Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report
Private mflgContinuar As Boolean
Private Sub Form_Resize()
CRViewer.Top = 0
CRViewer.Left = 0
CRViewer.Height = 4695
CRViewer.Width = 8295
End Sub
Private Sub Form_Activate()
If Not mflgContinuar Then Close
End Sub
Private Sub Form_Load()
Dim sQuery As String
Dim rAdoRs As ADODB.Recordset
On Error GoTo ErrHandler
sQuery = " exec urpEvalGeneralCurso @IdCursoImparticion = " & Form_frmCursosImparVisualizarEvaluaciones.IdCurso & ", @IdConcepto = " & Form_frmCursosImparVisualizarEvaluaciones.lidConcepto & ","
sQuery = sQuery & "@IdConcepto2 = " & Form_frmCursosImparVisualizarEvaluaciones.lidConcepto2 & ", "
sQuery = sQuery & "@IdConcepto3 = " & Form_frmCursosImparVisualizarEvaluaciones.lidConcepto3 & ", "
sQuery = sQuery & "@IdConcepto4 = " & Form_frmCursosImparVisualizarEvaluaciones.lidConcepto4 & ", "
sQuery = sQuery & "@IdConcepto5 = " & Form_frmCursosImparVisualizarEvaluaciones.lidConcepto5 & ", "
sQuery = sQuery & "@IdConcepto6 = " & Form_frmCursosImparVisualizarEvaluaciones.lidConcepto6 & ", "
sQuery = sQuery & "@IdConcepto7 = " & Form_frmCursosImparVisualizarEvaluaciones.lidConcepto7 & ", "
If Right(sQuery, 2) = ", " Then
sQuery = Left(sQuery, Len(sQuery) - 2)
End If
Set rAdoRs = ObtenerAdoRs(sQuery)
'obteneradors es una funcion que lo que hace es abrir una conexion y ejecutar la sentencia sql para almacenar los resultados en un recordset que luego utilizo para pasarselo como fuente al CR.
'Abrir el reporte
Screen.MousePointer = 11 'vbhourglass
mflgContinuar = True
Set crReport = crApp.OpenReport("C:\doxa\rptValoracionCurso.rpt", 1)
crReport.Database.SetDataSource rAdoRs
CRViewer.ReportSource = crReport
CRViewer.ViewReport
Screen.MousePointer = 0 'vbDefault
Exit Sub
ErrHandler:
If Err.Number = -2147206461 Then
MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", _
vbCritical + vbOKOnly
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgContinuar = False
Screen.MousePointer = 0 'vbDefault
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set crReport = Nothing
Set crApp = Nothing
End Sub

Necesito que me respondas urgentemente gracias por tu ayuda.