Visual Basic - Error 429 en tiempo de ejecución

Saludos a tod@s.

El siguiente código me está devolviendo el error 429 "El componente ActiveX no puede crear el objeto"

Private Sub mnuReportesEnProceso_Click()

Dim ObjAcc As Object
Dim PáginaInicial, PáginaFinal, NumCopias

On Error GoTo ErrHandler

Generando impresión
Set ObjAcc = CreateObject("Access.Application") <- línea en conflicto
ObjAcc.OpenCurrentDatabase "z:\Acuerdos.mdb"

dlgCommonDialog.CancelError = True
dlgCommonDialog.ShowPrinter
PáginaInicial = dlgCommonDialog.FromPage
PáginaFinal = dlgCommonDialog.ToPage
NumCopias = dlgCommonDialog.Copies
For i = 1 To NumCopias
ObjAcc.DoCmd.OpenReport "Confirmación", acViewNormal
Next i
ErrHandler:
ObjAcc.DoCmd.Quit
Set ObjAcc = Nothing

End Sub

Ya antes he utilizado esta rutina para imprimir desde un aplcativo de VB un reporte de Access y siempre había funcionado. ¿Qúé tengo mal?

Gracias a tod@s

Manuel

Verifica la versión de Acces y que los objetos que empleas (estos son selccionados en Proyecto-> componentes) sean compatibles con esa versión de acces.

Ya está verificado, son exactamente los mismos que en los otros aplicativos donde he utilizado la rutina y.... persiste la falla. Realicé la prueba de asignar el objeto como word y excel y en ambos casos lo acepta muy bien, persistiendo la falla cuando se asigna access.

La tabla a lacual estas asignando el objeto tiene por lo menos un índice (aunque no sea principal)

La tabla principal tiene un campo indexado. El reporte está referenciado a una consulta sobre la tabla principal.

ya probaste referenciando el componente dentro del proyecto?
te funciona?

Antes del createobject, es bueno que pruebas con el new y referenciado

No, no lo he intentado como new o referenciado. ¿cómo es eso? La rutina ya la he utilizado en otros aplicativos y funciona muy bien, realmente no se porqué en este último no funciona.